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Abstract 

This is a collection of examples showing how the GAP system [GAPOTj can be used to compute 
information about the probabilistic generation of finite almost simple groups. It includes all examples 
that were needed for the computational results in [BGKj . 

The purpose of this writeup is twofold. On the one hand, the computations are documented 
this way. On the other hand, the GAP code shown for the examples can be used as test input for 
automatic checking of the data and the functions used. 

A first version of this document had been accessible in the web in April 2006. The main difference 
to the current version is that the format of the GAP output was adjusted to the changed behaviour 
of GAP. 
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1 Overview 

The main purpose of this note is to document the GAP computations that were carried out in order 
to obtain the computational results in [BGK] . Table [1] lists the simple groups among these examples. 
The first column gives the group names, the second and third columns contain a plus sign + or a 
minus sign — , depending on whether the quantities a{G,s) and P(G, s), respectively, are less than 
1/3. The fourth column lists the orders of elements s which either prove the + signs or cover most of 
the cases for proving these signs. The fifth column lists the sections in this note where the example 
is treated. The rows of the table are ordered alphabetically w.r.t. the group names. 

In order to keep this note self-contained, we first describe the theory needed, in Section [2] The 
translation of the relevant formulae into GAP functions can be found in Section |3] Then Section [4] 
describes the computations that only require (ordinary) character tables in the GAP Character Table 
Library [Bre04] . Computations using also the groups are shown in Section [5| In each of the last two 
sections, the examples are ordered alphabetically w.r.t. the names of the simple groups. 

Contrary to |BGK) . ATLAS notation is used throughout this note, because the ide ntifiers us ed for 
character tables in the GAP Character Table Library follow mainly the ATLAS [CCN"'"85] . For 
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example, we write Ld{q) for PSL(d, g), S'd(g) for PSp{d,q), Ud{q) for PSU(d, g), and O^^(g), O^^iq), 
02d+i{q) for Pr2+(2d,q), Pf7"(2d,q), Pf7(2d+ l,q), respectively. 

Furthermore, in the case of classical groups, the character tables of the (almost) simple groups 
are considered not the tables of the matrix groups (which are in fact often not available in the 
GAP Character Table Library). Consequently, also element orders and the description of maximal 
subgroups refer to the (almost) simple groups not to the matrix groups. 

This note contains also several examples that are not needed for the proofs in [BGK] . Besides several 
small simple groups G whose character table is contained in the GAP Character Table Library and for 
which enough information is available for computing (j{G), in Section r4.3l a few such examples appear 
in individual sections. In the table of contents, the section headers of the latter kind of examples are 
marked with an asterisk (*). 

The examples use the GA P Character Table Library, the GAP Library of Tables of Marks, and the 
GAP interface [WPN+07] to the ATLAS of Group Representations fwll] . so we first load these three 
packages in the required versions. The GAP output was adjusted to the versions shoen below; in 
older versions, features necessary for the computations may be missing, and it may happen that 
newer versions, the behaviour is difi'erent. 

Also, we force the assertion level to zero; this is the default in interactive GAP sessions but it is 
automatically set to 1 when a file is read with Readiest. 

gap> CompareVersionNumbersC GAPInfo .Version, "4.4.10" ); 
true 

gap> LoadPackageC "ctbllib", "1.1.4" ); 
true 

gap> LoadPackageC "tomlib", "1.1.1" ); 
true 

gap> LoadPackageC "atlasrep", "1.3.1" ); 
true 

gap> SetAssertionLevelC ); 

Some of the computations in Section [5] require about 800 MB of space. Therefore we check whether 
GAP was started with sufficient maximal memory; the command line option for this is -o 800m. 

gap> max:= GAPInfo . CommandLineOptions . o ; ; 

gap> IsSubsetC max, "m" ) and IntC FilteredC max, IsDigitChar ) ) >= 800; 
true 

Several computations involve calls to the GAP function Random. In order to make the results of 
individual examples reproducible, independent of the rest of the computations, we reset the relevant 
random number generators whenever this is appropriate. For that, we store the initial states in the 
variable staterandom, and provide a function for resetting the random number generators. (The 
Random calls in the GAP library use the two random number generators GlobalRandomSource and 
GlobalMersennelwister.) 

gap> staterandom := [ State C GlobalRandomSource ), 

> State C GlobalMersennelwister ) ];; 
gap> ResetGlobalRandomNumberGenerators : = functionC) 

> Reset C GlobalRandomSource, staterandom [1] ); 

> Reset C GlobalMersennelwister, staterandom [2] ); 

> end; ; 
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2 Prerequisites 



2.1 Theoretical Background 

Let G be a finite group, S the socle of G, and denote by tiie set of nonidentity elements in G. 
For s,g e G^, let P{g,s) ■— \{h € G; S ^ (s'', g)}|/|G|, the proportion of elements in the class s*^ 
which fail to generate at least S with g; we set P{G,s) := max.{P{g, s); g G G^}. We are interested 
in finding a class s*^ of elements in 5* such that P(G, s) < 1/3 holds. 

First consider g (z S, and let M{S,s) denote the set of those maximal subgroups of S that contain s. 
We have 

\{heS;S^{s\g)}\ = \{heS;{s,hgh-')^S}\ 

< J2 \{h e S;hgh-'' £ M}\ 

MeM(S.s) 

Since hgh~^ £ M holds if and only if the coset Alh is fixed by g under the permutation action of S 
on the right cosets of M in S, we get that \{h G 5"; hgh"^ G M}\ = \Cs{g)\ ■ \g^ n M\ = \M\ ■ lijig), 
where if/ is the permutation character of this action, of degree ISI/IA/I. Thus 

\{heS;{s,hgh-')^S}\/\S\ < J2 lM(5)/lff(l)- 

We abbreviate the right hand side of this inequality by a{g,s), set a{S,s) := ma,x{a{g, s); g G S^}, 
and choose a transversal T of 5 in G. Then P{g, s) < \T\~^ ■ X^^gy ""(5*1 s) and thus P{G, s) < (j{S, s) 
holds. 

If S = G and if A4{G,s) consists of a single maximal subgroup M of G then equality holds, i.e., 
Pig,s) = a{g,s)^lfj{g)/lUl). 

The quantity 1m((?)/1m(1) ~ \g^ n Af|/|5r'^| is the proportion of fixed points of g in the permutation 
action of S on the right cosets of its subgroup M. This is called the fixed point ratio of g w. r. t. S/M, 
and is denoted as ^{g, S/M). 

For a subgroup M of 5", the number n of S-conjugates of M containing s is equal to \M^ \ ■ |s^nAf |. 
To see this, consider the set {{s*^ , M'°);h,k £ S,s^ £ M^}, the cardinality of which can be counted 
either as \M^\ ■ n M\ or as |s^| ■ n. So we get n=\M\- llj{s) /\Ns{M)\. 

If 5* is a finite nonabelian simple group then each maximal subgroup in S is self-normalizing, and we 
have n = 1m{s) if M is maximal. So we can replace the summation over M{S,s) by one over a set 
A^(5', s) of representatives of conjugacy classes of maximal subgroups of 5", and get that 



1m (s) -11(5) 



MeM(s,s) ^^^^^ 
Furthermore, we have \M{S,s)\ = J2MeM(s,s) 1m(s)- 

In the following, we will often deal with the quantities i7{S) :— mm{a{S, s); s G 5*^} and S{S) := 
\l/a{S) — 1]. These values can be computed easily from the primitive permutation characters of 5*. 

Analogously, we set P{S) ■- min{P(S', s); s G 5""} and V{S) := \l/PiS) - 1]. Clearly we have 
P(S') < a(5) and V{S) > S{S). 

One interpretation of P(S') is that if this value is at least k then it follows that for any gi, g2, ■ ■ ■ , gt £ 
, there is some s £ S such that S — {gi,s), for 1 < i < fc. In this case, S is said to have spread 
at least k. (Note that the lower bound S{S) for 'P(S') can be computed from the list of primitive 
permutation characters of S.) 

Moreover, 'P(S') > k implies that the element s can be chosen uniformly from a fixed conjugacy class 
of S. This is called uniform spread at least k in [BGK] , 
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It is proved in [GKOO] that all finite simple groups have uniform spread at least 1, that is, for any 
element x £ , there is an element y in a prescribed class of S such that G — {x, y) holds. In 'BGKJ 
Corollary 1.3], it is shown that all finite simple groups have uniform spread at least 2, and the finite 
simple groups with (uniform) spread exactly 2 are listed. 

Concerning the spread, it should be mentioned that the methods used here and in |BGK) are non- 
constructive in the sense that they cannot be used for finding an element s that generates G together 
with each of the k prescribed elements gi, 32, . • • , <7fc. 

Now consider g £ G\S. Since P{g'' , s) > P{g, s) for any positive integer k, we can assume that g has 
prime order p, say. We set H = {S, g) < G, with [H : S] = p, choose a transversal T of ii" in G, let 
M'{H,s) := A4{H,s) \ {S}, and let M'{H,s) denote a set of representatives of ff-conjugacy classes 
of these groups. As above, 

\{heH;S%{s\g)}\/\H\ = \{h £ H; {3\ g) ^ H}\/\H\ 

< J2 \{heH-hgh-^ eM}\/\H\ 

MeM'{H,s) 

E i«(ff)/iM(i) 

E lM(ff)-lM(«)/lM(l) 

MeM'{H,s) 

(Note that no summand for A/ — S occurs, so each group in A4'{H,s) is self- normalizing.) We 
abbreviate the right hand side by (^(H, g, s), and set o' [H, s) — msLx{a{H, g, s); g £ H \ S,\g\ = [H : 
S]}. Then we get P(ff,s) < \T\''^ ■ Y^t^j. o{H\ g\ s) and thus 

P(G, s) < max{P(S', s), max{a'(iy, s);S<H< G, [H : S] prime}}. 
For convenience, we set P'{G, s) — max{P((;, s); g £ G \ S}. 



2.2 Computational Criteria 

The following criteria will be used when we have to show the existence or nonexistence of xi,X2, ■ ■ ■ ,xt, 
and s £ G with the property {xi,s} = G for 1 < i < fc. Note that manipulating lists of integers 
(representing fixed or moved points) is much more efficient than testing whether certain permutations 
generate a given group. 

Lemma 2.1 Let G be a finite group, s £ G^ , and X = UAigAi(G s) G/M. For xi,X2, . . . ,Xk £ G, 
the conjugate s' of s satisfies {xi,s') = G for 1 < i < k if and only if Fixx{s') n Ui=i Fixx{xi) = 
holds. 

Proof. U £ U < G for some g £ G then Fixx{U) = if and only if 17 = G holds; note that 
Fixx(G) = 0, and Fixx{U) = implies that U g h~'^Mh holds for al\h£G and M £ M{G, s), thus 
U = G. 

Applied to U = {xi, s'), we get {xi, s') = G if and only if Fixx(s') n Fixx{xi) = Fixx{U) = 0. □ 

Corollary 2.2 If M{G,s) = {M} in the situation of Lemma \2.1\ then there is a conjugate s' of s 
that satisfies {xi, s') — G for 1 < i < k if and only if Ui=i Fixx(3::i) 7^ X. 

Corollary 2.3 Let G be a finite simple group and let X be a G-set such that each g £ G fixes 
at least one point in X but that Fixx(G) = holds. If xi, X2, . . . Xk are elements in G such that 
U*L]^ Fixx{xi) = X holds then for each s £ G there is at least one i with [xi, s) 7^ G. 
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3 GAP Functions for the Computations 



After the introduction of general utilities in Section r3.ll we distinguish two different tasks. Section IT^ 
introduces functions that will be used in the following to compute a{g,s) with character-theoretic 
methods. Functions for computing P{g, s) or an upper bound for this value will be introduced in 
Section 

The GAP functions shown in Section[3]are collected in the file tst/probgen.g that is distributed with 
the GAP Character Table Library, see http://www.math.rwth-aachen.de/~Thomas.Breuer/ctbllib 

The functions have been designed for the examples in the later sections, they could be generalized 
and optimized for other examples. It is not our aim to provide a package for this functionality. 

3.1 General Utilities 

Let list be a dense list and prop be a unary function that returns true or false when applied to the 
entries of list. PositionsProperty returns the set of positions in list for which true is returned. 

gap> BindGlobaK "PositionsProperty", function( list, prop ) 

> return Filtered( [ 1 .. Length( list ) ], i -> prop( list [i] ) ); 

> end ) ; 

The following two functions implement loops over ordered triples (and quadruples, respectively) in a 
Cartesian product. A prescribed function prop is subsequently applied to the triples (quadruples), 
and if the result of this call is true then this triple (quadruple) is returned immediately; if none of 
the calls to prop yields true then fail is returned. 

gap> BindGlobaK "TripleWithProperty" , function( threelists, prop ) 

> local i, j, k, test; 
> 

> for i in threelists [1] do 

> for j in threelists [2] do 

> for k in threelists [3] do 

> test : = [ i , j , k ] ; 

> if prop( test ) then 

> return test; 

> fi; 

> od; 

> od; 

> od; 
> 

> return fail; 

> end ) ; 

gap> BindGlobaK "QuadrupleWithProperty" , function( fourlists, prop ) 

> local i, j, k, 1, test; 
> 

> for i in fourlists [1] do 

> for j in fourlists [2] do 

> for k in fourlists [3] do 

> for 1 in fourlists [4] do 

> test:= [ i, j , k, 1 ] ; 

> if prop( test ) then 

> return test; 

> fi; 
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> od; 

> od; 

> od; 

> od; 
> 

> return fail; 



> end ) ; 

Of course one could do bettor by considering unordered n-tuples when several of the argument lists 
are equal, and in practice, backtrack searches would often allow one to prune parts of the search tree 
in early stages. However, the above loops are not time critical in the examples presented here, so the 
possible improvements are not worth the effort for our purposes. 

The function PrintFormattedArray prints the matrix array in a columnwise formatted way. (The 
only diference to the GAP library function PrintArray is that PrintFormattedArray chooses each 
column width according to the entries only in this column not w.r.t. the whole matrix.) 

gap> BindGlobaK "PrintFormattedArray", f\mction( array ) 



> local colwidths, n, row; 

> array:= List( array, row -> List( row. String ) ); 

> colwidths : = List ( TransposedMat ( array ) , 

> col -> MaximumC List( col, Length ) ) ); 

> n:= LengthC array [1] ); 

> for row in List( Eirray, row -> List( [1 .. n ], 

> i -> FormattedStringC row[i] , colwidths [i] ) ) ) do 

> Print ( " ", JoinStringsWithSeparatorC row, " " ), "\n" ); 

> od; 



> end ) ; 

Finally, CleanWorkspace is a utility for reducing the space needed. This is achieved by unbinding 
those user variables that are not write protected and are not mentioned in the list NeededVariables 
of variable names that are bound now, and by flushing the caches of tables of marks and character 
tables. 

gap> BindGlobaK "NeededVariables", NamesUserGVarsO ); 
gap> BindGlobaK "CleanWorkspace", function () 



> local name, record; 
> 

> for name in Difference( NamesUserGVarsO, NeededVariables ) do 

> if not IsReadOnlyGlobaK name ) then 

> UnbindGlobal ( name ) ; 

> fi; 

> od; 

> for record in [ LIBTOMKNOWN, LIBTABLE ] do 

> for name in RecNamesC record . LDADSTATUS ) do 

> Unbind ( record. LOADSTATUS . ( name ) ); 

> Unbind ( record. ( name ) ); 

> od; 

> od; 



> end ) ; 

The function PossiblePermutationCharacters takes two ordinary character tables sub and tbl, 

computes the possible class fusions from sub to tbl, then induces the trivial character of sub to tbl, 
w.r.t. these fusions, and returns the set of these class functions. (So if sub and tbl are the character 
tables of groups H and G, respectively, where H is a, subgroup of G, then the result contains the 
permutation character 1%.) 
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Note that the columns of the character tables in the GAP Character Table Library are not explicitly 
associated with particular conjugacy classes of the corresponding groups, so from the character tables, 
we can compute only possible class fusions, i.e., maps between the columns of two tables that satisfy 
certain necessary conditions, sec the section about the function PossibleClassFusions in the GAP 
Reference Manual for details. There is no problem if the permutation character is uniquely determined 
by the character tables, in all other cases we give ad hoc arguments for resolving the ambiguities. 

gap> BindGlobaK "PossiblePermutationCheiracters" , fiinctionC sub, tbl ) 



> local fus, triv; 
> 

> fus:= PossibleClassFusions ( sub, tbl ); 

> if fus = fail then 

> return fail; 

> fi; 

> triv:= [ Tr ivial Character ( sub ) ] ; 
> 

> return Set( List( fus, map -> InducedC sub, tbl, triv, map ) [1] ) ); 



> end ) ; 

3.2 Chciracter-Theoretic Computations 

We want to use the GAP libraries of character tables and of tables of marks, and proceed in three 
steps. 

First we extract the primitive permutation characters from the library information if this is available; 
for that, we write the function PrimitivePermutationCharacters. Then the result can be used 
as the input for the function ApproxP, which computes the values a{g,s). Finally, the functions 
ProbGenInf oSimple and ProbGenInf oAlmostSimple compute S{G). 

For a group G whose character table T is contained in the GAP character table library, the complete 
set of primitive permutation characters can be easily computed if the character tables of all maximal 
subgroups and their class fusions into T are known (in this case, we check whether the attribute 
Maixes of T is bound) or if the table of marks of G and the class fusion from T into this table of marks 
are known (in this case, we check whether the attribute FusionToTom of T is bound). If the attribute 
UnderlyingGroup of T is bound then this group can be used to compute the primitive permutation 
characters. The latter happens if T was computed from the group object in GAP; for tables in the 
GAP character table library, this is not the case by default. 

The GAP function PrimitivePermutationCharacters tries to compute the primitive permutation 
characters of a group using this information; it returns the required list of characters if this can be 
computed this way, otherwise fail is returned. (For convenience, we use the GAP mechanism of 
attributes in order to store the permutation characters in the character table object once they have 
been computed.) 

gap> DeclareAttribute ( "PrimitivePermutationCharacters", IsCharacterTable ); 
gap> InstallMethodC PrimitivePermutationCharacters, 



> [ IsCharacterTable ] , 

> functionC tbl ) 

> local maxes, tom, G; 
> 

> if HasMaxesC tbl ) then 

> maxes := List( Maxes ( tbl ), Character Table ); 

> return List( maxes, subtbl -> TrivialCharacter ( subtbl )"tbl ); 

> elif HasFusionToTomC tbl ) then 

> tom:= TableOf Marks ( tbl ); 

> maxes := MaximalSubgroupsTomC tom ); 



9 



> return PermCliarsTomC tbl, torn )■[ maxes[l] }; 

> elif HasUnderlyingGroupC tbl ) then 

> G:= Under lyingGroupC tbl ); 

> return List( MaximalSubgroupClassRepsC G ), 

> M -> TrivialCharacterC M )"tbl ); 

> fi; 
> 

> return fail; 

> end ) ; 

The function ApproxP takes a list primitives of primitive permutation characters of a group G, say, 
and the position spos of the class s'^ in the character table of G. 

Assume that the elements in primitives have the form 1^, for suitable maximal subgroups M of G, 
and let M. be the set of these groups M. ApproxP returns the class function ip of G that is defined 
by ■0(1) = and 

^(s)-l&(5) 



M6A4 '^^^^ 

otherwise. 

If primitives contains all those primitive permutation characters 1% of G (with multiplicity accord- 
ing to the number of conjugacy classes of these maximal subgroups) that do not vanish at s, and 
if all these M are self-normalizing in G -this holds for example if G is a finite simple group- then 
i'ig) = cr{g,s) holds. 

gap> BindGlobaK "ApproxP", fimctionC primitives, spos ) 

> local Slim; 
> 

> sim:= ShallowCopyC Sum( List( primitives, 

> pi -> pi [ spos ] * pi / pi [1] ) ) ) ; 

> sum[l] := 0; 
> 

> return sum; 

> end ) ; 

Note that for computations with permutation characters, it would make the functions more compli- 
cated (and not more efficient) if we would consider only elements g of prime order, and only one 
representative of Galois conjugate classes. 

The next functions needed in this context compute (j(S) and S{S), for a simple group S, and ct'{G, s) 
for an almost simple group G with socle S, respectively. 

ProbGenInf oSimple takes the character table tbl of S as its argument. If the full list of primitive 

permutation characters of S cannot be computed with PrimitivePermutationCharacters then the 
function returns fail. Otherwise ProbGenInf oSimple returns a list containing the identifier of the 
table, the value cr(S'), the integer S{S), a list of ATLAS names of representatives of Galois families 
of those classes of elements s for which a{S) = a{S, s) holds, and the list of the corresponding 
cardinalities \A4{S, s) \ . 

gap> BindGlobaK "ProbGenInf oSimple" , functionC tbl ) 

> local prim, max, min, bound, s; 
> 

> prim:= PrimitivePermutationCharacters ( tbl ); 

> if prim = fail then 

> return fail; 

> fi; 

> max:= List( [ 1 .. NrConjugacyClassesC tbl ) ], 
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> i -> Maximum ( ApproxP( prim, i ) ) ); 

> min:= Minimum ( max ); 

> bound := Inverse ( min ); 

> if IsIntC bound ) then 

> bound := bound - 1; 

> else 

> bound : = Int ( bound ) ; 

> fi; 

> s:= PositionsProperty ( max, x -> x = min ); 

> s:= List( Set( List( s, i -> ClassOrbitC tbl, i ) ) ), i -> i[l] ); 
> 

> return [ Identif ier( tbl ) , 

> min, 

> bound , 

> AtlasClassNamesC tbl ){ s }, 

> Sum( List( prim, pi -> pi{ s > ) ) ]; 



> end ) ; 

ProbGenInf oAlmostSimple takes the character tables tblS and tblG of S and G, and a list sposS of 
class positions (w.r.t. tblS) as its arguments. It is assumed that S is simple and has prime index in G. 
If PrimitivePermutationCliaracters can compute the full list of primitive permutation characters 
of G then the function returns a list containing the identifier of tblG, the maximum m of a'{G,s), 
for s in the classes described by sposS, a list of ATLAS names (in G) of the classes of elements s for 
which this maximum is attained, and the list of the corresponding cardinalities |A4'(G, s)|. When 
PrimitivePermutationCharacters returns fail, also ProbGenInf oAlmostSimple returns fail. 

gap> BindGlobaK "ProbGenInf oAlmostSimple" , functionC tblS, tblG, sposS ) 



> local p, fus, inv, prim, sposG, outer, approx, 1, max, min, 

> s, cards, i, names; 
> 

> p:= Size( tblG ) / Size( tblS ); 

> if not IsPrimelntC p ) 

> or LengthC ClassPositionsOf NormalSubgroups ( tblG ) ) <> 3 then 

> return fail; 

> fi; 

> fus:= GetFusionMapC tblS, tblG ); 

> if fus = fail then 

> return fail; 

> fi; 

> inv : = InverseMap ( fus ) ; 

> prim:= PrimitivePermutationCharacters ( tblG ); 

> if prim = fail then 

> return fail; 

> fi; 

> sposG:= Set( fus{ sposS > ); 

> outer := Difference ( PositionsProperty ( 

> OrdersClassRepresentatives ( tblG ), IsPrimeInt ), fus ); 

> approx:= List( sposG, i -> ApproxP( prim, i ){ outer ]■ ); 

> if IsEmptyC outer ) then 

> max:= List( approx, x -> ) ; 

> else 

> max:= List( approx. Maximum ); 

> fi; 

> min:= Minimum ( max); 

> s:= sposG{ PositionsProperty ( max, x -> x = min ) }; 
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> cair<ls:= List( prim, pi -> pi{ s } ); 

> for i in [1 . . LengthC prim ) ] do 

> # Omit the character that is induced from the simple group. 

> if For All ( prim[i] , x -> x = or x = prim[i] [1] ) then 

> cards [i] := 0; 

> fi; 

> od; 

> names := AtlasClassNames ( tblG ){ s ]■; 

> PerformC names, ConvertToStringRep ); 
> 

> return [ Identif ier( tblG ) , 

> min, 

> names , 

> Sum( cards ) ] ; 



> end ) ; 

The next function computes (j{G, s) from the character table tbl of a simple or almost simple group 
G, the name sname of the class of s in this table, the list maxes of the character tables of all subgroups 
M with M 6 M{G, s), and the list numpermchars of the numbers of possible permutation chaxacters 
induced from maixes. If the string "outer" is given as an optional argument then G is assumed to 
be an automorphic extension of a simple group 5, with [G : S] a. prime, and a'{G,s) is returned. In 
both situations, the result is fail if the numbers of possible permutation characters induced from 
maxes do not coincide with the numbers prescribed in numpermchairs. 

gap> BindGlobaK "SigmaFromMaxes" , functionC arg ) 



> local t, sname, maxes, numpermchairs, prim, spos, outer; 

> 

> t:= arg[l] ; 

> sname : = arg [2] ; 

> meixes : = arg [3] ; 

> numpermchars : = arg [4] ; 

> prim:= List( maxes, s -> PossiblePermutationChairactersC s, t ) ); 

> spos:= PositionC AtlasClassNames ( t ), sname ); 

> if ForAnyC [ 1 . . Length( maxes ) ] , 

> i -> LengthC prim[i] ) <> numpermchars [i] ) then 

> return fail; 

> elif LengthC arg ) = 5 and eirg[5] = "outer" then 

> outer := Difference ( 

> PositionsPropertyC OrdersClassRepresentativesC t ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t ) ); 

> return MaximumC ApproxPC ConcatenationC prim ), spos ){ outer > ); 

> else 

> return MaximumC ApproxPC ConcatenationC prim ) , spos ) ) ; 

> fi; 



> end ) ; 

The following function allows us to extract information about A4{G,s) from the character table tbl 
of G and a list snames of class positions of s. If Maxes C tbl ) is stored then the names of the 
character tables of the subgroups in M{G,s) and the number of conjugates are printed, otherwise 
fail is printed. 

gap> BindGlobalC "DisplayProbGenMaxesInf o" , functionC tbl, snames ) 

> local mx, prim, i, spos, nonz, indent, j; 
> 

> if not HasMaxesC tbl ) then 
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> Print ( Identifier ( tbl ), ": fail\n" ); 

> return; 

> fi; 
> 

> mx:= List( McLxes( tbl ), CharacterTable ); 

> prim:= List( mx, s -> TrivialCharacter( s )"tbl ); 

> Assert ( 1, SortedListC prim ) = 

> SortedListC PrimitivePermutationCliaracters C tbl ) ) ); 

> for i in [1 . . Length ( prim ) ] do 

> # Deal with the case that the subgroup is normal. 

> if ForAlK prim[i] , x -> x = or x = prim[i] [1] ) then 

> prim[i] := prim[i] / prim[i] [1] ; 

> fi; 

> od; 
> 

> spos:= ListC snames, 

> nam -> PositionC AtlasClassNames ( tbl ), nam ) ); 

> nonz:= List( spos, x -> PositionsProperty ( prim, pi -> pi [x] <> ) ); 

> for i in [1 . . Length ( spos ) ] do 

> PrintC IdentifierC tbl ), ", ", snames [i], ": " ); 

> indent := ListWithldenticalEntries ( 

> LengthC IdentifierC tbl ) ) + LengthC snames [i] ) + 4, ' ' ); 

> if not IsEmptyC nonz[i] ) then 

> PrintC IdentifierC mx[ nonz[i] [1] ] ), " C", 

> prim[ nonz[i] [1] ][ spos [i] ], ")\n" ); 

> for j in [2 .. LengthC nonz [i] ) ] do 

> PrintC indent, IdentifierC mx[ nonz[i][j] ] ), " C", 

> prim[ nonz[i][j] ][ spos[i] ], ")\n" ); 

> od; 

> else 

> PrintC "\n" ); 

> fi; 

> od; 



> end ) ; 

3.3 Computations with Groups 

Here, the task is to compute P{g, s) or P(G, s) using explicit computations with G, where the 
character- theoretic bounds are not sufficient. 

We start with small utilities that make the examples shorter. 

For a finite solvable group G, the function PcConjugacyClassReps returns a list of representatives of 
the conjugacy classes of G, which are computed using a polycyclic presentation for G. 

gap> BindGlobalC "PcConjugacyClassReps", functionC G ) 



> local iso; 
> 

> iso:= IsomorphismPcGroupC G ); 

> return ListC ConjugacyClassesC Image C iso ) ), 

> c -> PrelmagesRepresentative C iso. Representative C c ) ) ); 



> end ) ; 

For a finite group G, a list primes of prime integers, and a normal subgroup N of G, the function 
ClassesOf PrimeOrder returns a list of those conjugacy classes of G that are not contained in N and 
whose elements' orders occur in primes. 
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For each prime p in primes, first class representatives of order p in a Sylow p subgroup of G are 
computed, then the representatives in N are discarded, and then representatives w. r. t. conjugacy in 
G are computed. 

(Note that this approach may be inappropriate for example if a large elementary abelian Sylow p 
subgroup occurs, and if the conjugacy tests in G are expensive, see Section [5.141 ') 

gap> BindGlobaK "ClassesOfPrimeDrder" , function( G, primes, N ) 



> local ccl, p, syl, reps; 
> 

> ccl:= []; 

> for p in primes do 

> syl:= SylowSubgroupC G, p ); 

> reps:= Filtered( PcConjugacyClassReps ( syl ), 

> r -> Order ( r ) = p and not r in N ) ; 

> AppendC ccl, DuplicateFreeList ( List( reps, 

> r -> ConjugacyClass ( G, r ) ) ) ); 

> od; 
> 

> return ccl; 



> end ) ; 

The function IsGeneratorsOf TransPermGroup takes a transitive permutation group G and a list list 
of elements in G, and returns true if the elements in list generate G, and false otherwise. The main 
point is that the return value true requires the group generated by list to be transitive, and the 
check for transitivity is much cheaper than the test whether this group is equal to G. 

gap> BindGlobaK " IsGeneratorsOf TransPermGroup" , function( G, list ) 



> local S; 
> 

> if not IsTransitiveC G ) then 

> Error( "<G> must be transitive on its moved points" ); 

> fi; 

> S:= SubgroupNCC G, list ); 
> 

> return IsTransitiveC S, MovedPointsC G ) ) and Size( S ) = Size( G ); 



> end ) ; 

RatioOf NongenerationTransPermGroup takes a transitive permutation group G and two elements 
g and s of G, and returns the proportion P{g,s). (The function tests the (non)generation only 
for representatives of Cg (3)-Cg (s)-double cosets. Note that for ci £ Ccig), C2 £ Cg(s), and a 
representative r £ G, we have {g'^^^'^^ , s) — {g^ , s}'^^ .) 

gap> BindGlobaK "RatioOf NongenerationTransPermGroup" , functionC G, g, s ) 



> local nongen, pair; 
> 

> if not IsTransitiveC G ) then 

> ErrorC "<G> must be transitive on its moved points" ); 

> fi; 

> nongen := 0; 

> for pair in DoubleCosetRepsAndSizesC G, CentralizerC G, g ), 

> CentralizerC G, s ) ) do 

> if not IsGeneratorsOf TransPermGroup C G, [ s, g~pair[l] ] ) then 

> nongen : = nongen + pair [2] ; 

> fi; 

> od; 
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> 

> retvirn nongen / Size ( G ) ; 

> end ) ; 



Let G be a group, and let groups be a list [Gi , G2 , • • • , Gn] of permutation groups such that Gi 
describes the action of G on a set Qi, say. Moreover, we require that for 1 < i,j < n, mapping the 
GeneratorsQf Group list of Gj to that of Gj defines an isomorphism. DiagonalProductOf PermGroups 
takes groups as its argument, and returns the action of G on the disjoint union of fii, Q2, ■ ■ ■ , f^n- 

gap> BindGlobaK "DiagonalProductOf PermGroups" , function ( groups ) 



> local prodgens, deg, i, gens, D, pi; 
> 

> prodgens := GeneratorsOf Group ( groups [1] ); 

> deg:= NrMovedPoints ( prodgens ); 

> for i in [2 . . Length ( groups ) ] do 

> gens:= GeneratorsOf Group ( groups [i] ); 

> D:= MovedPointsC gens ); 

> pi== MappingPermListListC D, [ deg+1 .. deg+Length( D ) ] ); 

> deg:= deg + Length ( D ); 

> prodgens := List( [ 1 .. Length ( prodgens ) ], 

> i -> prodgens [i] * gens [i] "pi ) ; 

> od; 
> 

> return Group ( prodgens ) ; 



> end ) ; 

The following two functions are used to reduce checks of generation to class representatives of maximal 
order. Note that if {s,g) is a proper subgroup of G then also {s'',g) is a proper subgroup of G, so we 
need not check powers s* different from s in this situation. 

For an ordinary character table tbl, the function RepresentativesMaximallyCyclicSubgroups re- 
turns a list of class positions, containing one class of generators for each class of maximally cyclic 
subgroups. 

gap> BindGlobaK "RepresentativesMaximallyCyclicSubgroups" , functionC tbl ) 



> local n, result, orders, p, pmap, i, j; 
> 

> # Initialize. 

> n:= NrConjugacyClassesC tbl ); 

> result := BlistListC [l..n], [l..n]); 
> 

> # Omit powers of smaller order. 

> orders := OrdersClassRepresentatives ( tbl ); 

> for p in Set( Factors ( Size( tbl ) ) ) do 

> pmap : = PowerMap ( tbl , p ) ; 

> for i in [ 1 . . n ] do 

> if orders [ pmap [i] ] < orders [i] then 

> result [ pmap[i] ] := false; 

> fi; 

> od; 

> od; 
> 

> # Omit Galois conjugates. 

> for i in [1 . . n ] do 

> if result [i] then 

> for j in ClassOrbitC tbl, i ) do 
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> if i <> j then 

> result[j]:= false; 

> fi; 

> od; 

> fi; 

> od; 
> 

> # Return the result . 

> return ListBlist( [1 .. n ], result ); 



> end ) ; 

Let G be a finite group, tbl be the ordinary character table of G, and cols be a fist of class positions 
in tbl, for example the list returned by RepresentativesMaximallyCyclicSubgroups. The function 
ClassesPerhapsCorrespondingToTableColumns returns the sublist of those conjugacy classes of G for 
which the corresponding column in tbl can be contained in cols, according to element order and 
class size. 

gap> BindGlobaK "ClassesPerhapsCorrespondingToTableColumns" , 



> functionC G, tbl, cols ) 

> local orders, classes, invariants; 
> 

> orders := OrdersClassRepresentatives ( tbl ); 

> classes := SizesConjugacyClasses ( tbl ); 

> invariants := List( cols, i -> [ orders [i] , classes [i] ] ); 
> 

> return Filtered( ConjugacyClasses ( G ), 

> c -> [ Order( Representative ( c ) ), Size(c) ] in invariants ); 



> end ) ; 

The next function computes, for a finite group G and subgroups M\, M2, ■ ■ ■ , Mn of G, an upper 
bound for max{5^"^j ^{g, G/Mi); g £ G \ Z{G)}. So if the Mi are the groups in M{G, s), for some 
s £ , then we get an upper bound for cr(G', s). 

The idea is that for M < G and g £ G of order p, we have 

K9,G/M) = |ff«nM|/|g^| < J2 Ih^'Ulg^l = E I'*"! ■ \CG{g)\/\G\, 

h£C hsC 

where C is a set of class representatives h £ M of all those classes that satisfy = p and \CG{h)\ = 
|Cg(<7)|, and in the case that G is a permutation group additionally that h and g move the same 
number of points. (Note that it is enough to consider elements of prime order.) 

For computing the maximum of the rightmost term in this inequality, for g £ G \ Z{G), we need not 
determine the G-conjugacy of class representatives in M. Of course we pay the price that the result 
may be larger than the leftmost term. However, if the maximal sum is in fact taken only over a single 
class representative, we are sure that equality holds. Thus we return a list of length two, containing 
the maximum of the right hand side of the above inequality and a Boolean value indicating whether 
this is equal to max{/i((;, G/M)\g £ G \ Z{G)} or just an upper bound. 

The arguments for UpperBoundFixedPointRatios are the group G, a list maxesclasses such that the 
i-th entry is a list of conjugacy classes of Mi, which covers all classes of prime element order in Mi, 
and either true or false, where true means that the exact value of cr(G, s) is computed, not just 
an upper bound; this can be much more expensive because of the conjugacy tests in G that may be 
necessary. (We try to reduce the number of conjugacy tests in this case, the second half of the code 
is not completely straightforward. The special treatment of conjugacy checks for elements with the 
same sets of fixed points is essential in the computation of a'{G,s) for G — PGL(6,4); the critical 
input line is ApproxPForOuterClassesInGL( 6, 4 ), see Section [5.71 Currently the standard GAP 



16 



conjugacy test for an element of order three and its inverse in G \ G' requires hours of CPU time, 
whereas the check for existence of a conjugating element in the stabilizer of the common set of fixed 
points of the two elements is almost free of charge.) 

UpperBoundFixedPointRatios can be used to compute cr'(G, s) in the case that G is an automorphic 

extension of a simple group S, with [G : S] = p & prime; if Ai'{G, s) — {Mi, M2, ■ ■ ■ , Mn} then the 
i-th entry of maxesclasses must contain only the classes of element order p in Mi \ {Mi n S). 

gap> BindGlobaK "UpperBoundFixedPointRatios", 



> fimctionC G, maxesclasses, truetest ) 

> local mylsConjugate , invs, info, c, r, o, inv, pos, Sims, max, maxpos, 

> maxlen, reps, split, i, found, j; 
> 

> mylsConjugate := fimctionC G, x, y ) 

> local movx, movy; 
> 

> movx:= MovedPointsC x ); 

> movy:= MovedPointsC y ); 

> if movx = movy then 

> G:= StabilizerC G, movx, OnSets ); 

> fi; 

> return IsConjugateC G, x, y ); 

> end; 
> 

> invs : = [] ; 

> info : = [] ; 
> 

> # First distribute the classes according to invariants. 

> for c in ConcatenationC maxesclasses ) do 

> r:= Representative ( c ); 

> 0:= Order ( r ) ; 

> # Take only prime order representatives . 

> if IsPrimelntC o ) then 

> inv:= [ o, Size( CentralizerC G, r ) ) ] ; 

> # Omit classes that are central in 'G' . 

> if inv [2] SizeC G ) then 

> if IsPermC r ) then 

> Add( inv, NrMovedPoints ( r ) ); 

> fi; 

> pos:= First ( [ 1 .. Length( invs ) ] , i -> inv = invs [i] ); 

> if pos = fail then 

> # This class is not 'G' -conjugate to any of the previous ones. 

> Add( invs, inv ) ; 

> Add( info, [ [ r, SizeC c ) * inv[2] ] ] ); 

> else 

> # This class may be conjugate to an earlier one. 

> AddC info[ pos ], [ r, SizeC c ) * inv [2] ] ); 

> fi; 

> fi; 

> fi; 

> od; 
> 

> if info = [] then 

> return [ 0, true ] ; 

> fi; 
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> 

> repeat 

> # Compute the contributions of the classes with the same invariants. 

> sums:= List( info, x -> Sum( List( x, y -> y[2] ) ) ); 

> max : = Maximum ( sums ) ; 

> maxpos:= FilteredC [ 1 .. LengthC info ) ], i -> sums[i] = max ); 

> maxlen:= List( maxpos, i -> LengthC info[i] ) ); 
> 

> # Split the sets with the same invariants if necessary 

> # and if we want to compute the exact value . 

> if truetest and not 1 in maxlen then 

> # Make one conjugacy test. 

> pos:= Position( maxlen, Minimum( maxlen ) ); 

> reps:= info[ maxpos [ pos ] ]; 

> if mylsConjugateC G, reps[l][l], reps [2] [1] ) then 

> # Fuse the two classes. 

> reps[i] [2] := reps[l] [2] + reps [2] [2]; 

> reps [2]:= reps[ LengthC reps ) ]; 

> Unbind ( reps[ LengthC reps ) ] ); 

> else 

> # Split the list. This may require additional conjugacy tests. 

> UnbindC info[ maxpos [ pos ] ] ); 

> split := [ reps[l], reps [2] ]; 

> for i in [3 . . LengthC reps ) ] do 

> found := false; 

> for j in split do 

> if mylsConjugateC G, reps[i][l], j [1] ) then 

> j [2] := repsCi] [2] + j [2] ; 

> foimd:= true; 

> break; 

> fi; 

> od; 

> if not found then 

> AddC split, reps[i] ); 

> fi; 

> od; 
> 

> info:= CompactedC ConcatenationC info, 

> ListC split, X -> [ X ] ) ) ); 

> fi; 

> fi; 

> until 1 in maxlen or not truetest; 
> 

> return [ max / Size C G ) , 1 in maxlen ] ; 



> end ) ; 

Suppose that Ci, C2, C3 are conjugacy classes in G, and that we have to prove, for each {xi,X2,xz) € 
Ci X C2 X C3, the existence of an element s in a prescribed class C of G such that {x\, s) = {0:2, s) = 
{x2; s) = G holds. 

We have to check only representatives under the conjugation action of G on Ci x C2 x C3. For each 
representative, we try a prescribed number of random elements in C. If this is successful then we are 
done. The following two functions implement this idea. 

For a group G and a list [31,52, ■ • ■ ,5n] of elements in G, QrbitRepresentativesProductOf Classes 
returns a list R{G,gi,g2, ■ ■ ■ ,gn) of representatives of G-orbits on the Cartesian product gi x g2 x 
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• • • X 5n ■ 

The idea behind this function is to choose R{G,gi) = {(ffi)} in the case n = 1, and, for n > 1, 

R{G,gi,g-2,...,gn) = {{hi,h2, ■ ■ . ,h„) \ (/ii, fe, • • . , /in-i) € R{G,gi,g2,. ■ ■ ,gn-i), 
hn = gi, for d € D}, 

where D is & set of representatives of double cosets Coign) \ G/ n"~^ Co (hi). 
gap> BindGlobaK "OrbitRepresentativesProductOf Classes" , 



> functionC G, classreps ) 

> local cents, n, orbreps; 
> 

> cents:= ListC classreps, x -> CentralizerC G, x ) ); 

> n:= LengthC classreps ); 
> 

> orbreps := functionC reps, intersect, pos ) 

> if pos > n then 

> return [ reps ] ; 

> fi; 

> return ConcatenationC List( 

> DoubleCosetRepsAndSizesC G, cents [ pos ], intersect ), 

> r -> orbreps ( ConcatenationC reps, [ classreps [ pos ]~r[l] ] ), 

> IntersectionC intersect, cents [ pos ]~r[l] ), pos+1 ) ) ); 

> end; 
> 

> return orbreps C [ classreps [1] ] , cents [1] , 2 ) ; 



> end ) ; 

The function RandomCheckUnif ormSpread takes a transitive permutation group G, a list of class 
representatives gi £ G, an element s £ G, and a positive integer N. The return value is true if for 
each representative of G-orbits on the product of the classes gf, a good conjugate of s is found in at 
most N random tests. 

gap> BindGlobalC "RandomCheckUnif ormSpread" , fimctionC G, classreps, s, try ) 



> local elms, found, i, conj ; 
> 

> if not IsTransitiveC G, MovedPointsC G ) ) then 

> ErrorC "<G> must be transitive on its moved points" ); 

> fi; 
> 

> # Compute orbit representatives of G on the direct product, 

> # and try to find a good conjugate of s for each representative. 

> for elms in OrbitRepresentativesProductOf Classes C G, classreps ) do 

> found := false; 

> for i in [ 1 . . try ] do 

> conj:= s'RandomC G ); 

> if ForAllC elms, 

> X -> IsGeneratorsOf TransPermGroupC G, [ x, conj ] ) ) then 

> found:= true; 

> break; 

> fi; 

> od; 

> if not found then 

> return elms; 

> fi; 
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> od; 
> 

> return true; 

> end ) ; 

Of course this approach is not suitable for disproving the existence of s, but it is much cheaper than 
an exhaustive search in the class C. (Typically, |C| is large whereas the \Ci\ axe small.) 

The following function can be used to verify that a given n-tuple {xi,X2, . ■ ■ ,x„) of elements in a 
group G has the property that for all elements gr G G, at least one Xi satisfies {xi,g). The arguments 
are a transitive permutation group G, a list of class representatives in G, and the n-tuple in question. 
The return value is a conjugate g of the given representatives that has the property if such an element 
exists, and fail otherwise. 

gap> BindGlobaK "CoiranonGeneratorWithGivenElements" , 



> functionC G, classreps, tuple ) 

> local inter, rep, repcen, pair; 
> 

> if not IsTransitive( G, MovedPoints( G ) ) then 

> Error( "<G> must be transitive on its moved points" ); 

> fi; 
> 

> inter:= Intersection( List( tuple, x -> Centralizer( G, x ) ) ); 

> for rep in classreps do 

> repcen := Centralizer( G, rep ); 

> for pair in DoubleCosetRepsAndSizes( G, repcen, inter ) do 

> if For All ( tuple, 

> x -> IsGeneratorsOfTransPermGroupC G, [ x, rep~pair[l] ] ) ) then 

> return rep; 

> fi; 

> od; 

> od; 
> 

> return fail; 



> end ) ; 

4 Character-Theoretic Computations 

In this section, we apply the functions introduced in Section 13.21 to the character tables of simple 
groups that are available in the GAP Character Table Library. 

Our first examples are the sporadic simple groups, in Section [4.11 then their automorphism groups 
are considered in Section [4.21 

Then we consider those other simple groups for which GAP provides enough information for auto- 
matically computing an upper bound on (t(G, s) -see Section [4. 3f - and their automorphic extensions 
-see Section \4A\ 

After that, individual groups are considered. 

4.1 Sporadic Simple Groups 

The GAP Character Table Library contains the tables of maximal subgroups of all sporadic simple 
groups except B and M, so all primitive permutation characters can be computed via the function 
PrimitivePermutationCharacters for 24 of the 26 sporadic simple groups. 
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gap> sporinfo:= [] ; ; 

gap> spornaines:= AllCharacterTableNames ( IsSporadicSimple , true );; 
gap> for tbl in List( spornames, CharacterTable ) do 

> info:= ProbGenInf oSimple ( tbl ); 

> if info <> fail then 

> Add( sporinfo, info ); 

> fi; 

> od; 



We show the result as a formatted table. 



gap> PrintFormattedArray ( sporinfo ) ; 



Col 


421/1545600 


3671 [ 


"35A" : 




4 


Co2 


1/270 


269 [ 


"23A" ] 




1 


Co3 


64/6325 


98 [ 


"21A" : 




4 


F3+ 


1/269631216855 


269631216854 [ 


"29A" : 




1 


Fi22 


43/585 


13 [ 


"16A" ] 




7 


Fi23 


2651/2416635 


911 [ 


"23A" ; 




2 


HN 


4/34375 


8593 [ 


"19A" ] 




1 


HS 


64/1155 


18 [ 


"15A" ] 




2 


He 


3/595 


198 [ 


"14C" ] 




3 


Jl 


1/77 


76 [ 


"19A" ] 




1 


32 


5/28 


5 [ 


"IOC" ] 




3 


33 


2/153 


76 [ 


"19A" ] 




2 


J4 


1/1647124116 


1647124115 [ 


"29A" ] 




1 


Ly 


1/35049375 


35049374 [ 


"37A" ] 




1 


Mil 


1/3 


2 [ 


"llA" ] 




1 


M12 


1/3 


2 [ 


"lOA" ] 




3 


M22 


1/21 


20 [ 


"llA" ] 




1 


M23 


1/8064 


8063 [ 


"23A" ] 




1 


M24 


108/1265 


11 [ 


"21A" ] 




2 


McL 


317/22275 


70 [ "15A", 


"30A" ] 


[ 3, 


3 


ON 


10/30723 


3072 [ 


"31A" ] 




2 


Ru 


1/2880 


2879 [ 


"29A" ] 




1 


Suz 


141/5720 


40 [ 


"14A" ] 




3 


Th 


2/267995 


133997 [ "27A", 


"27B" ] 


[ 2, 


2 



We see that in all these cases, o-(G) < 1/2 and thus 'P(G) > 2, and all sporadic simple groups G 
except G = Mil and G = M12 satisfy (t(G) < 1/3. See 15.91 and 15.101 for a proof that also these two 
groups have uniform spread at least three. 

The structures and multiplicities of the maximal subgroups containing s are as follows. 



gap> for entry in sporinfo do 

> DisplayProbGenMaxesInf o( CharacterTable ( entry[l] ), 

> od; 

Col, 35A: (A5xJ2):2 (1) 

(A6xU3(3)):2 (2) 

(A7xL2(7)):2 (1) 
Co2, 23A: M23 (1) 
Co3, 21A: U3(5) .3.2 (2) 

L3(4).D12 (1) 

s3xpsl(2,8) .3 (1) 
F3+, 29A: 29:14 (1) 
Fi22, 16A: 2-10:m22 (1) 

(2x2- (1+8)) :U4(2) :2 



entry [4] ) ; 



(1) 
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2F4(2)' (4) 
2-(5+8) : (S3xA6) (1) 
Fi23, 23A: 2. .Il.m23 (1) 

L2(23) (1) 
HN, 19A: U3(8).3_l (1) 
HS, 15A: AS. 2 (1) 

5:4xa5 (1) 
He, 14C: 2-1+6 .psl (3, 2) (1) 
7-2:2psl(2,7) (1) 
7- (1+2) : (33x3) (1) 
Jl, 19A: 19:6 (1) 
32, IOC: 2-l+4b:a5 (1) 
aSxdlO (1) 
5-2:D12 (1) 
J3, 19A: L2(19) (1) 

J3M3 (1) 
J4, 29A: frob (1) 
Ly, 37A: 37:18 (1) 
Mil, llA: L2(ll) (1) 
M12, lOA: A6.2~2 (1) 
M12M4 (1) 
2xS5 (1) 
M22, llA: L2(ll) (1) 
M23, 23A: 23:11 (1) 
M24, 21A: L3(4).3.2_2 (1) 

2-6: (psl(3,2)xs3) (1) 
McL, 15A: 3~(1+4):2S5 (1) 
2.A8 (1) 
5-(l+2):3:8 (1) 
McL, 30A: 3^(1+4) :2S5 (1) 
2.A8 (1) 
5-(l+2):3:8 (1) 
ON, 31A: L2(31) (1) 

0NM8 (1) 
Ru, 29A: L2(29) (1) 
Suz, 14A: J2.2 (2) 

(a4xpsl(3,4)) :2 (1) 
Th, 27A: ThN3B (1) 

ThM7 (1) 
Th, 27B: ThN3B (1) 
ThM7 (1) 

For the remaining two sporadic simple groups, B and M, we choose suitable elements s. If G = B 
and s e G is of order 47 then, by ;Wil99', M{G, s) = {47 : 23}. 

gap> SigmaFromMaxes( CharacterTable( "B" ), "47A", 
> [ CharacterTable( "47:23" ) ], [ 1 ] ); 

1/174702778623598780219392000000 

If G = M and s G G is of order 59 then, by |HW04] . M{G,s) = {L2(59)}. In this case, the 
permutation character is not uniquely determined by the character tables, but all possibilities lead 
to the same value for o-(G). 

gap> t:= CharacterTable( "M" );; 
gap> s:= CharacterTable( "L2(59)" );; 
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gap> pi:= PossiblePermutationCharacters ( s, t );; 

gap> Length ( pi ) ; 

5 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 59 ); 
152 

gap> Set( List( pi, x -> MaximumC ApproxP( [ x ], spos ) ) ) ); 
[ 1/3385007637938037777290625 ] 

Essentially the same approach is taken in |GM01] . However, there s is restricted to classes of prime 
order. Thus the results in the above table are better for J2, HS, M24,, McL, He, Suz, C03, Fi22, 
Ly, Th, Coi, and J4. Besides that, the value 10 999 claimed in [GMOl] for S{HN) is not correct. 

4.2 Automorphism Groups of Sporadic Simple Groups 

Next we consider the automorphism groups of the sporadic simple groups. There are exactly 12 
cases where nontrivial outer automorphisms exist, and then the simple group 5* has index 2 in its 
automorphism group G. 

gap> sporautnames : = AllCharacterTableNames ( IsSporadicSimple , true, 
> Of Those, AutomorphismGroup );; 

gap> sporautnames : = Difference ( sporautnames, spornames ); 
[ "F3+.2", "Fi22.2", "HN.2", "HS.2", "He. 2", "J2.2", "J3.2", "M12.2", 
"M22.2", "McL. 2", "ON. 2", "Suz. 2" ] 

First we compute the values o' (G, s), for the same s £ S that were chosen for the simple group 5* in 
Section O 

For six of the groups G in question, the character tables of all maximal subgroups are available 
in the GAP Character Table Library. In these cases, the values a'{G,s) can be computed using 
ProbGenlnfoAlmost Simple. 

gap> sporautinf o : = [] ; ; 

gap> fails : = [] ; ; 

gap> for name in sporautnames do 



> tbl:= CharacterTable ( name{ [ 1 .. PositionC name, '.' ) - 1 ] } ); 

> tblG:= CharacterTable ( name ); 

> info:= ProbGenInf oSimple ( tbl ); 

> info:= ProbGenInf oAlmostSimple ( tbl, tblG, 

> ListC info[4], x -> PositionC AtlasClassNames ( tbl ), x ) ) ); 

> if info = fail then 

> Add( fails, name ); 

> else 

> Add( sporautinfo, info ); 

> fi; 

> od; 

gap> PrintFormattedArray ( sporautinfo ) ; 

J2.2 1/15 [ "lOCD" ] [ 3 ] 

J3.2 1/1080 [ "19AB" ] [ 1 ] 

M12.2 4/99 [ "lOA" ] [ 1 ] 

M22.2 1/21 [ "llAB" ] [ 1 ] 

McL. 2 1/63 [ "15AB", "30AB" ] [ 3, 3 ] 



Suz. 2 661/46332 [ "14A" ] [ 3 ] 

Note that for 5* = McL, the bound a'{G,s) for G = S.2 (in the second column) is worse than the 
bound for the simple group 5*. 

The structures and multiplicities of the maximal subgroups containing s are as follows. 
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gap> for entry in sporautinfo do 

> DisplayProbGenMaxesInf o( CharacterTable ( entry[l] ), entry[3] ); 

> od: 



J2.2, 


lOCD: 


J2 (1) 








2~(l+4) .35 


(1) 






(A5xD10) .2 


(1) 






5~2: (4x33) 


(1) 


J3.2, 


19AB: 


J3 (1) 








19:18 (1) 




M12.2, 


lOA: 


M12 (1) 








(2-2xA5) :2 


(1) 


M22 . 2 , 


llAB 


M22 (1) 








L2(ll) .2 


(1) 


McL . 2 , 


15AB 


McL (1) 





3"(1+4):4S5 (1) 

Isoclinic(2.A8.2) (1) 

5'(l+2) : (24:2) (1) 
McL. 2, 30AB: McL (1) 

3-(l+4):4S5 (1) 

Isoclinic(2.A8.2) (1) 

5-(l+2) : (24:2) (1) 
3UZ.2, 14A: 3uz (1) 

J2.2x2 (2) 
(A4xL3(4) :2_3) :2 (1) 

Note that the maximal subgroups L2(19) of J3 do not extend to J3.2 and that a class of maximal 
subgroups of the type 19 : 18 appears in J3.2 whose intersection with J3 is not maximal in J3. 
Similarly, the maximal subgroups of M12 do not extend to M12.2. 

For the other six groups, we use individual computations. 

In the case 5* = Fi'24,, the unique maximal subgroup 29 ; 14 that contains an element s of order 29 
extends to a group of the type 29 : 28 in Fi24, which is a nonsplit extension of 29 : 14. 

gap> 3igmaFromMaxes( CharacterTable ( "Fi24'.2" ), "29AB", 
> [ CharacterTable ( "29:28" ) ], [ 1 ], "outer" ); 



In the case 5* — Fi22, there are four classes of maximal subgroups that contain s of order 16. They 
extend to G = -Fi22.2, and none of the novelties in G (i. e., subgrou ps of G th at are maximal in G 



but whose intersections with S are not maximal in 5") contains s, cf. [CCN 851 p. 163] 



gap> 16 in OrdersClassRepresentatives ( CharacterTable ( "U4(2).2" ) ); 
false 

gap> 16 in OrdersClassRepresentatives ( CharacterTable ( "G2(3).2" ) ); 
false 

The character tables of three of the four extensions are available in the GAP Character Table Library. 
The permutation character on the cosets of the fourth extension can be obtained as the extension of 
the permutation character of S on the cosets of its maximal subgroup of the type 2^'*'* : (5*3 x ^46). 

gap> t2:= CharacterTable ( "Fi22.2" );; 

gap> prim: = List ( [ "Fi22.2M4", " (2x2" (1+8) ) : (U4(2) : 2x2) " , "2F4(2)" ], 
> n -> PossiblePermutationCharacters ( CharacterTable ( n ) , t2 ) );; 

gap> t:= CharacterTable ( "Fi22" );; 
gap> pi:= PossiblePermutationCharacters ( 
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> CharacterTableC "2" (5+8) : (S3xA6) " ), t ); 

[ CharacterC CharacterTableC "Fi22" ), [ 3648645, 56133, 10629, 2245, 567, 

729, 405, 81, 549, 165, 133, 37, 69, 20, 27, 81, 9, 39, 81, 19, 1, 13, 
33, 13, 1, 0, 13, 13, 5, 1, 0, 0, 0, 8, 4, 0, 0, 9, 3, 15, 3, 1, 1, 1, 
1, 3, 3, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2 ] ) ] 

gap> torso:= CompositionMaps ( pi[l], InverseMapC GetFusionMapC t, t2 ) ) ); 

[ 3648645, 56133, 10629, 2245, 567, 729, 405, 81, 549, 165, 133, 37, 69, 20, 
27, 81, 9, 39, 81, 19, 1, 13, 33, 13, 1, 0, 13, 13, 5, 1, 0, 0, 0, 8, 4, 0, 
9, 3, 15, 3, 1, 1, 1, 3, 3, 1, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 1, 1, 2 ] 

gap> ext:= PermCharsC t2, rec( torso := torso ) );; 

gap> Add( prim, ext ) ; 

gap> prim:= ConcatenationC prim );; LengthC prim ); 
4 

gap> spos:= PositionC OrdersClassRepresentatives ( t2 ), 16 );; 
gap> List( prim, x -> x[ spos ] ); 
[ 1. 1, 4, 1 ] 

gap> sigma:= ApproxP( prim, spos );; 

gap> MaximumC sigma{ DifferenceC PositionsProperty ( 

> OrdersClassRepresentatives ( t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) } ) ; 
251/3861 

In the case S = _ff A*', the unique maximal subgroup 173(8). 3 that contains the fixed element s of order 
19 extends to a group of the type ?73(8).6 in HN.2. 

gap> SigmaFromHaxesC CharacterTableC "HN.2" ), "19AB", 

> [ CharacterTableC "U3C8).6" ) ], [ 1 ], "outer" ); 
1/6875 

In the case S = HS, there are two classes of maximal subgroups that contain s of order 15. They 
extend to G = HS.2, and none of the novelties in G contains s (cf. (CCN"'"85i p. 80]). 

gap> SigmaFromHaxesC CharacterTableC "HS.2" ), "15A", 

> [ CharacterTableC "S8x2" ), 

> CharacterTableC "5:4" ) * CharacterTableC "A5.2" ) ], [ 1, 1 ], 

> "outer" ); 
36/275 

In the case S — He, there are three classes of maximal subgroups that co ntain s in the class 14C. 
They extend to G = He.2, and none of the novelties in G contains s (cf. [CCN"'"85l p. 104]). We 
compute the extensions of the corresponding primitive permutation characters of S. 

gap> t:= CharacterTableC "He" );; 

gap> t2:= CharacterTableC "He.2" );; 

gap> prim:= PrimitivePermutationCharacters C t );; 

gap> spos:= PositionC AtlasClassNames C t ), "14C" );; 

gap> prim:= FilteredC prim, x -> x[ spos ] <> );; 

gap> map:= InverseMapC GetFusionMapC t, t2 ) );; 

gap> torso:= ListC prim, pi -> CompositionMaps C pi, map ) ); 

[ [ 187425, 945, 449, 0, 21, 21, 25, 25, 0, 0, 5, 0, 0, 7, 1, 0, 0, 1, 0, 1, 

0, 0, 0, 0, 0, 0], 
[ 244800, 0, 64, 0, 84, 0, 0, 16, 0, 0, 4, 24, 45, 3, 4, 0, 0, 0, 0, 1, 0, 

0, 0, 0, 0, ] , 

[ 652800, 0, 512, 120, 72, 0, 0, 0, 0, 0, 8, 8, 22, 1, 0, 0, 0, 0, 0, 1, 0, 
0, 1, 1, 2, ] ] 
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gap> ext:= List( torso, x -> PermChars( t2, rec( torso := x ) ) ); 

[ [ CharacterC CharacterTable ( "He. 2" ), [ 187425, 945, 449, 0, 21, 21, 25, 
25, 0, 0, 5, 0, 0, 7, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 315, 15, 
0, 0, 3, 7, 7, 3, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, ] ) ], 
[ CharacterC CharacterTable ( "He. 2" ), [ 244800, 0, 64, 0, 84, 0, 0, 16, 0, 
0, 4, 24, 45, 3, 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 360, 0, 0, 0, 
6, 0, 0, 0, 0, 0, 3, 2, 2, 0, 0, 0, 0, 0, ] ) ], 
[ CharacterC CharacterTable C "He. 2" ), [ 652800, 0, 512, 120, 72, 0, 0, 0, 
0, 0, 8, 8, 22, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 2, 0, 480, 0, 120, 
0, 12, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 1, 1 ] ) ] ] 

gap> spos:= PositionC AtlasClassNames C t2 ), "14CD" );; 

gap> sigma:= ApproxPC ConcatenationC ext ), spos );; 

gap> MaximumC sigina-[ DifferenceC PositionsProperty C 

> OrdersClassRepresentatives C t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) } ) ; 
37/9520 

In the case S — O'N, the two classes of maximal subgroups of the ty pe L2(31) do not extend to 
G — O'N.2, and a class of novelties of the structure 31 : 30 appears (see [CCN"'"85l p. 132]). 

gap> SigmaFromMaxesC CharacterTable C "ON. 2" ), "31AB" , 

> [ CharacterTable C "P:Q", [ 31 , 30 ] ) ] , [ 1 ] , "outer" ); 
1/84672 

Now we consider also cr(G', s), for suitable s £ G \ S; this yields lower bounds for the spread of the 
nonsimple groups G. (These results are shown in the last two columns of |BGKI Table 9].) 

As above, we use the known character tables of the maximal subgroups in order to compute the 
optimal choice for s £ G\S. (We may use the function ProbGenInf oSimple although the groups are 
not simple; all we need is that the relevant maximal subgroups are self-normalizing.) 

gap> sporautinf o2 : = [] ; ; 

gap> for name in ListC sporautinf o, x -> x[l] ) do 

> AddC sporautinf o2, ProbGenInf oSimple C CharacterTable C name ) ) ); 

> od; 

gap> PrintFormattedArray C sporautinfo2 ) ; 
J2.2 1/15 14 [ "14A" ] [ 1 ] 

J3.2 77/10260 133 [ "34A" ] [ 1 ] 
M12.2 113/495 4 [ "12B" ] [ 3 ] 
M22.2 8/33 4 [ "lOA" ] [ 4 ] 

McL.2 1/135 134 [ "22A" ] [ 1 ] 
Suz.2 1/351 350 [ "28A" ] [ 1 ] 
gap> for entry in sporautinfo2 do 

> DisplayProbGenMaxesInf oC CharacterTable C entry[l] ), entry[4] ); 

> od; 

J2.2, 14A: L3C2).2x2 CD 
J3.2, 34A: L2Cl7)x2 CD 
M12.2, 12B: L2C1D.2 CD 

D8.CS4x2) CD 

3~Cl+2):D8 CD 
M22.2, lOA: M22.2M4 CD 

A6.2-2 CD 

L2C1D.2 C2) 
McL.2, 22A: 2xMll CD 
Suz.2, 28A: CA4xL3C4) :2_3) :2 CD 
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In the other six cases, we do not have the complete hsts of primitive permutation characters, so we 
choose a suitable element s for each group. It is sufficient to prescribe |s|, as follows. 



gap> sporautchoices : = [ 



> 


[ 


"Fi22" , 


"Fi22.2", 


42 


] 


> 


[ 


"Fi24"', 


"Fi24' .2" , 


46 


] 


> 


[ 


"He" , 


"He. 2", 


42 


] 


> 


[ 


"HN" , 


"HN.2", 


44 


] 


> 


[ 


"HS" , 


"HS.2", 


30 


] 


> 


[ 


"ON" , 


"ON. 2", 


38 


] 



];; 

First we list the maximal subgroups of the corresponding simple groups that contain the square of s. 

gap> for triple in sporautchoices do 

> tbl:= CharacterTableC tripled] ); 

> tbl2:= CharacterTableC triple [2] ); 

> spos2:= PowerMapC tbl2, 2, 

> PositionC OrdersClassRepresentatives ( tbl2 ), triple[3] ) ); 

> spos:= PositionC GetFusionMapC tbl, tbl2 ), spos2 ); 

> DisplayProbGenMaxesInf o( tbl, AtlasClassNames ( tbl )■[ [ spos ] } ); 

> od; 

Fi22, 21A: 08+(2).3.2 (1) 

S3xU4(3).2_2 (1) 
A10.2 (1) 
A10.2 (1) 
F3+, 23A: Fi23 (1) 

F3+M7 (1) 
He, 21B: 3.A7.2 (1) 

7-(l+2) : (S3x3) (1) 
7:3xpsl(3,2) (2) 
HN, 22A: 2. HS.2 (1) 
HS, 15A: AS. 2 (1) 

5:4xa5 (1) 
ON, 19B: L3(7).2 (1) 
0NM2 (1) 
Jl (1) 

According to [CCN"'"85] , exactly the following maximal subgroups of the simple group 5* in the above 
list do not extend to Aut(5'): The two Sio type subgroups of Fi22 and the two L3(7).2 type subgroups 
of O'N. 

Furthermore, the following maximal subgroups of Aut(5') with the property that the intersection with 
S is not maximal in S have to be considered whether they contain s': G2(3).2 and 3^ : (2 x (74 (2). 2) 
in Fi22.2. (Note that the order of the 7^'^ : (3 x Dm) type subgroup in O'N. 2 is obviously not 
divisible by 19.) 

gap> 42 in OrdersClassRepresentatives ( CharacterTableC "G2(3).2" ) ); 
false 

gap> SizeC CharacterTableC "U4(2)" ) ) mod 7=0; 
false 

So we take the extensions of the above maximal subgroups, as described in [CCN"'"85] . 

gap> SigmaFromMaxesC CharacterTableC "Fi22.2" ), "42A" , 

> [ CharacterTableC "08+C2).3.2" ) * CharacterTableC "Cyclic", 2 ), 

> CharacterTableC "S3" ) * CharacterTableC "U4C3) . C2~2)_{122}" ) ], 
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> [ 1, 1 ] ); 
163/1170 

gap> SigmaFromMaxes ( CharacterTable ( "Fi24'.2" ), "46A" , 

> [ CharacterTable ( "Fi23" ) * CharacterTable ( "Cyclic", 2 ), 

> CharacterTable ( "2-12. M24" ) ], 

> [ 1. 1 ] ); 

566/5481 

gap> SigmaFromMaxes ( CharacterTable ( "He. 2" ), "42A", 

> [ CharacterTable ( "3.A7.2" ) * CharacterTable ( "Cyclic", 2 ), 

> CharacterTable ( "7" (1+2) : (S3x6) " ), 

> CharacterTable ( "7:6" ) * CharacterTable ( "L3(2)" ) ], 

> [ 1, 1, 1 ] ); 
1/119 

gap> SigmaFromMaxes ( CharacterTable ( "HN.2" ), "44A" , 

> [ CharacterTable ( "4.HS.2" ) ], 

> [ 1 ] ); 

997/192375 

gap> SigmaFromMaxes ( CharacterTable ( "HS.2" ), "30A", 

> [ CharacterTable ( "S8" ) * CharacterTable ( "C2" ), 

> CharacterTable ( "5:4" ) * CharacterTable ( "S5" ) ], 

> [ 1, 1 ] ); 

36/275 

gap> SigmaFromMaxes ( CharacterTable ( "ON. 2" ), "38A", 

> [ CharacterTable ( "Jl" ) * CharacterTable ( "C2" ) ], 

> [ 1 ] ); 
61/109368 



4.3 Other Simple Groups - Easy Cases 

We are interested in simple groups G for which ProbGenInf oSimple does not guarantee S{G) > 3. 

So wo examine the remaining tables of simple groups in the GAP Character Table Library, and 
distinguish the following three cases: Either ProbGenInf oSimple yields the lower bound at least 
three, or a smaller bound, or the computation of a lower bound fails because not enough information 
is available to compute the primitive permutation characters. 

gap> names := AllCharacterTableNames( IsSimple, true );; 

gap> names:= Difference( names, spornames );; 

gap> fails : = [] ; ; 

gap> lessthan3 : = [] ; ; 

gap> atleast3 : = [] ; ; 

gap> for name in names do 

> tbl : = CharacterTable ( name ) ; 

> info:= ProbGenInf oSimple ( tbl ); 

> if info = fail then 

> Add( fails, name ); 

> elif info [3] < 3 then 

> Add( lessthan3, info ); 

> else 

> Add( atleastS, info ); 

> fi; 

> od; 

For the following simple groups, (currently) not enough information is available in the GAP Character 
Table Library and in the GAP Library of Tables of Maxks, for computing a lower bound for cr(G). 
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Some of these groups will be dealt with in later sections, and for the other groups, the bounds derived 
with theoretical arguments in [BGK] are sufficient, so we need no GAP computations for them. 

gap> fails; 

[ "2E6(2)", "2F4(8)", "A14" , "A15", "A16" , "A17" , "A18", "E6(2)", "F4(2)", 
"G2(5)", "L4(4)", "L4(5)", "L4(9)", "L5(3)", "L6(2)", "L7(2)", "L8(2)", 
"010+(2)", "010-(2)", "07(3)", "07(5)", "08-(3)", "09(3)", "R(27)", 
"S10(2)", "S12(2)", "S4(7)", "S4(8)", "34(9)", "S6(4)", "36(5)", "S8(2)", 
"88(3)", "U4(4)", "U4(5)", "U5(4)", "U6(2)" ] 

The following simple groups appear in [BGK I Table 1-6]. More detailed computations can be found 
in the sections \Mi El \5J2\ [5T3l KM KM Oil 



gap> PrintFormattedArray ( lessthan3 ) ; 

A5 1/3 2 [ "5A" ] [ 1 ] 

A6 2/3 1 [ "5A" ] [ 2 ] 

A7 2/5 2 [ "7A" ] [ 2 ] 

08+(2) 334/315 [ "15A", "15B", "15C" ] [ 7, 7, 7 ] 

08+(3) 863/1820 2 [ "20A", "20B", "20C" ] [ 8, 8, 8 ] 

S6(2) 4/7 1 [ "9A" ] [ 4 ] 

U4(2) 21/40 1 [ "12A" ] [ 2 ] 

U4(3) 53/135 2 [ "7A" ] [ 7 ] 



For the following simple groups G, the inequality (t(G) < 1/3 follows from the loop above. The 
columns show the name of G, the values cr{G) and S{G), the class names of s for which these values 
are attained, and |A^(G, s)|. 



gap> PrintFormattedArray ( atleast3 ) ; 



2F4(2) ' 


118/1755 


14 




[ 


'16A" ] 






[ 


2 


3D4(2) 


1/5292 


5291 




[ 


'13A" ] 






[ 


1 


AlO 


3/10 


3 




[ 


'21A" ] 






[ 


1 


All 


2/105 


52 




[ 


'llA" ] 






[ 


2 


A12 


2/9 


4 




[ 


'35A" ] 






[ 


1 


A13 


4/1155 


288 




[ 


'13A" ] 






[ 


5 


A8 


3/14 


4 




[ 


'15A" ] 






[ 


1 


A9 


9/35 


3 




[ "9A", 


"9B" ; 




[ 


4, 


4 


G2(3) 


1/7 


6 




[ 


'13A" ] 






[ 


3 


G2(4) 


1/21 


20 




[ 


'13A" ] 






[ 


2 


L2(101) 


1/101 


100 




[ "51A", 


'17A" ] 




[ 


1, 


1 


L2(103) 


53/5253 


99 


[ 


"52A", "26A", 


'13A" ] 


[ 


1, 


1, 


1 


L2(107) 


55/5671 


103 [ 


"54A", "27A" 


, "18A", "9A", 


"6A" ] 


[ 1, 1, 


1, 


1, 


1 


L2(109) 


1/109 


108 




[ "55A", 


'llA" ] 




[ 


1, 


1 


L2(ll) 


7/55 


7 




[ 


"6A" ] 






[ 


1 


L2(113) 


1/113 


112 




[ "57A", 


'19A" ] 




[ 


1, 


1 


L2(121) 


1/121 


120 




[ 


'61A" ] 






[ 


1 


L2(125) 


1/125 


124 


[ "63A" 


, "21A", "9A", 


"7A" ] 


[ 1, 


1, 


1, 


1 


L2(13) 


1/13 


12 




[ 


"7A" ] 






[ 


1 


L2(16) 


1/15 


14 




[ 


'17A" ] 






[ 


1 


L2(17) 


1/17 


16 




[ 


"9A" ] 






[ 


1 


L2(19) 


11/171 


15 




[ 


'lOA" ] 






[ 


1 


L2(23) 


13/253 


19 




[ "6A", 


'12A" ] 




[ 


1, 


1 


L2(25) 


1/25 


24 




[ 


'13A" ] 






[ 


1 


L2(27) 


5/117 


23 




[ "7A", 


'14A" ] 




[ 


1, 


1 


L2(29) 


1/29 


28 




[ 


'15A" ] 






[ 


1 


L2(31) 


17/465 


27 




[ "8A", 


'16A" ] 




[ 


1, 


1 



29 



L2(32) 


1/31 


30 


[ 


"3A", "llA", "33A" ] 




[ 


1, 


1, 


1 


L2(37) 


1/37 


36 




[ "19A" ] 










1 


L2(41) 


1/41 


40 




[ "21A", "7A" ] 






[ 


1, 


1 


L2(43) 


23/903 


39 




[ "22A", "llA" ] 






[ 


1, 


1 


L2(47) 


25/1081 


43 


[ "24A" 


"12A", "8A", "6A" ] 


[ 


1, 


1, 


1, 


1 


L2(49) 


1/49 


48 




[ "25A" ] 










1 


L2(53) 


1/53 


52 




[ "27A", "9A" ] 






[ 


1, 


1 


L2(59) 


31/1711 


55 


[ "30A", 


"15A", "lOA", "6A" ] 


[ 


1, 


1, 


1, 


1 


L2(61) 


1/61 


60 




[ "31A" ] 










1 


L2(64) 


1/63 


62 




[ "65A", "13A" ] 






[ 


1, 


1 


L2(67) 


35/2211 


63 




[ "34A", "17A" ] 






[ 


1, 


1 


L2(71) 


37/2485 


67 [ 


"36A", "18A" 


"12A", "9A", "6A" ] 


[ 1, 


1, 


1, 


1, 


1 


L2(73) 


1/73 


72 




[ "37A" ] 










1 


L2(79) 


41/3081 


75 


[ "40A", 


"20A", "lOA", "8A" ] 


[ 


1, 


1, 


1, 


1 


L2(8) 


1/7 


6 




[ "3A", "9A" ] 






[ 


1, 


1 


L2(81) 


1/81 


80 




[ "41A" ] 










1 


L2(83) 


43/3403 


79 [ 


"42A", "21A" 


"14A", "7A", "6A" ] 


[ 1, 


1, 


1, 


1, 


1 


L2(89) 


1/89 


88 


[ 


"45A", "15A", "9A" ] 




[ 


1, 


1, 


1 


L2(97) 


1/97 


96 




[ "49A", "7A" ] 






[ 


1, 


1 


L3(ll) 


1/6655 


6654 




[ "19A", "133A" ] 






[ 


1, 


1 


L3(2) 


1/4 


3 




[ "7A" ] 










1 


L3(3) 


1/24 


23 




[ "13A" ] 










1 


L3(4) 


1/5 


4 




[ "7A" ] 










3 


L3(5) 


1/250 


249 




[ "31A" ] 










1 


L3(7) 


1/1372 


1371 




[ "19A" ] 










1 


L3(8) 


1/1792 


1791 




[ "73A" ] 










1 


L3(9) 


1/2880 


2879 




[ "91A" ] 










1 


L4(3) 


53/1053 


19 




[ "20A" ] 










1 


L5(2) 


1/5376 


5375 




[ "31A" ] 










1 


08- (2) 


1/63 


62 




[ "17A" ] 










1 


S4(4) 


4/15 


3 




[ "17A" ] 










2 


S4(5) 


1/5 


4 




[ "13A" ] 










1 


S6(3) 


1/117 


116 




[ "14A" ] 










2 


Sz(32) 


1/1271 


1270 




[ "5A", "25A" ] 






[ 


1, 


1 


Sz(8) 


1/91 


90 




[ "5A" ] 










1 


U3(ll) 


1/6655 


6654 




[ "37A" ] 










1 


U3(3) 


16/63 


3 




[ "6A", "12A" ] 






[ 


2, 


2 


U3(4) 


1/160 


159 




[ "13A" ] 










1 


U3(5) 


46/525 


11 




[ "lOA" ] 










2 


U3(7) 


1/1372 


1371 




[ "43A" ] 










1 


U3(8) 


1/1792 


1791 




[ "19A" ] 










1 


U3(9) 


1/3600 


3599 




[ "73A" ] 










1 


U5(2) 


1/54 


53 




[ "llA" ] 










1 



It should be mentioned that |BW75] states the following lower bounds for the uniform spread of the 
groups L2{q). 

q — 2 if 4 < g is even, 

q~l ifll<g = l (mod 4), 

g-4 ifll<g = -l (mod 4). 

These bounds appear in the third column of the above table. Furthermore, |BW75j states that the 
(uniform) spread of alternating groups of even degree at least 8 is exactly 4. 

For the sake of completeness, Table [5] gives an overview of the sets M{G,s) for those cases in the 
above list that are needed in [BGK] but that do not require a further discussion here. The structure 



30 



Table 2: Maximal subgroups 



G 


M(G,s) 




see (CCN+85j 


SL(3,4) = 3.L3(4) 


3 X ^3(2), 3 X 2.3(2), 3 x L3(2) 


21 


p. 23 


r!- (8, 2)^08- (2) 


n-{A,4:).2 ^ i2(16).2 


17 


p. 89 


Sp(4,4) = 54(4) 
Sp(6,3) = 2.^6(3) 


r2-(4,4).2 = i2(16).2,Sp(2,16).2 = £2(16). 2 
(4 X C/3(3)).2, Sp(2, 17).3 = 2.L2(27).3 


17 
28 


p. 44 
p. 113 


SU(3,3) = C/3(3) 
SU(3,5) = 3.C/3(5) 
SU(5,2) = C/5(2) 


3++^ : 8, GU(2, 3) = 4.84 

3 X 5^+2 : 8, GU(2, 5) = 3 x 25*5 

^2(11) 


6 
30 
11 


p. 14 
p. 34 
p. 73 



of the maximal subgroups and the order of s in the table refer to the matrix groups not t o the simpl e 
groups. The number of the subgroups has been shown above, the structure follows from [CCN"'"85] . 

4.4 Automorphism Groups of other Simple Groups — Easy Cases 

We deal with automorphic extensions of those simple groups that are listed in Table [T] and that have 
been treated successfully in Section [4.31 

For the following groups, ProbGenInf oAlmostSimple can be used because GAP can compute their 
primitive permutation characters. 

gap> list:= [ 



> 


[ "A5", 


'A5 


.2" ] , 








> 


[ "A6", 


'A6 


.2_1" ] 








> 


[ "A6", 


'A6 


.2_2" ] 








> 


[ "A6", 


'A6 


.2_3" ] 








> 


[ "A7", 


'A7 


.2" ] , 








> 


[ "A8", 


'A8 


.2" ] , 








> 


[ "A9", 


'A9 


.2" ] , 








> 


[ "All", 


"All. 2" ] 








> 


[ "L3(2) 




"L3(2) . 


2" 


] 


} 


> 


[ "L3(3) 




"L3(3) . 


2" 


] 


} 


> 


[ "L3(4) 




"L3(4) . 


2_ 


1" 


] 


> 


[ "L3(4) 




"L3(4) . 


2_ 


2" 


] 


> 


[ "L3(4) 




"L3(4) . 


2_ 


3" 


] 


> 


[ "L3(4) 




"L3(4) . 


3" 


] 




> 


[ "S4(4) 




"S4(4) . 


2" 


] 




> 


[ "U3(3) 




"U3(3) . 


2" 


] 




> 


[ "U3(5) 




"U3(5) . 


2" 


] 




> 


[ "U3(5) 




"U3(5) . 


3" 


] 




> 


[ "U4(2) 




"U4(2) . 


2" 


] 




> 


[ "U4(3) 




"U4(3) . 


2_ 


1" 


] 


> 

> ] ; 


[ "U4(3) 




"U4(3) . 


2_ 


3" 


] 


gap> 


autinf 




[];; 








gap> 


fails : = 


[];; 









gap> for pair in list do 

> tbl:= CharacterTable ( pair[l] ); 

> tblG:= CharacterTable ( pair [2] ); 

> info:= ProbGenInf oSimple ( tbl ); 
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> spos:= List( info[4], x -> Position( AtlasClassNames ( tbl ), x ) ); 

> Add( autinfo, ProbGenInf oAlmostSimple ( tbl, tblG, spos ) ); 

> od; 



gap> PrintFormattedArray ( autinfo 



A5 


2 





[ "5AB" ] 


[ 1 


A6.2. 


.1 


2/3 


[ "5AB" ] 


[ 2 


A6.2. 


.2 


1/6 


[ "5A" ] 


[ 1 


A6.2. 


.3 





[ "5AB" ] 


[ 1 


A7 


2 


1/15 


[ "7AB" ] 


[ 1 


A8 


2 


13/28 


[ "15AB" ] 


[ 1 


A9 


2 


1/4 


[ "9AB" ] 


[ 1 


All 


2 


1/945 


[ "llAB" ] 


[ 1 


L3(2) 


2 


1/4 


[ "7AB" ] 


[ 1 


L3(3) 


2 


1/18 


[ "13AB" ] 


[ 1 


L3(4) .2. 


.1 


3/10 


[ "7AB" ] 


[ 3 


L3(4) .2. 


.2 


11/60 


[ "7A" ] 


[ 1 


L3(4) .2. 


.3 


1/12 


[ "7AB" ] 


[ 1 


L3(4) 


3 


1/64 


[ "7A" ] 


[ 1 


S4(4) 


2 





[ "17AB" ] 


[ 2 


U3(3) 


2 


2/7 [ 


"6A", "12AB" ] 


[ 2, 2 


U3(5) 


2 


2/21 


[ "lOA" ] 


[ 2 


U3(5) 


3 


46/525 


[ "lOA" ] 


[ 2 


U4(2) 


2 


16/45 


[ "12AB" ] 


[ 2 


U4(3) .2. 


.1 


76/135 


[ "7A" ] 


[ 3 


U4(3) .2. 


.3 


31/162 


[ "7AB" ] 


[ 3 



We see that from this hst, the two groups Ag.2i = Se and ?74(3).2i require further computations (see 
Sections 15.31 and 15.241 respectively) because the bound in the second column is larger than 1/2. 

Also U4{2) is not done by the above, because in [BGKI Table 4], an element s of order 9 is chosen for 
the simple group, see Section [5.231 

Finally, we deal with automorphic extensions of the groups 1/4(3), 0^(2), Se{3), and 1/5(2). 

For 5 = Z/4(3) and s £ S of order 20, we have Ai{S,s) — {(4 x Aa) : 2}, the subgroup has index 
2 106, see |CCN+85[ p. 69]. 

gap> t:= CharacterTableC "L4(3)" );; 
gap> prim:= PrimitivePermutationCharacters ( t );; 
gap> spos:= PositionC AtlasClassNames ( t ), "20A" );; 
gap> prim:= Filtered( prim, x -> x[ spos ] <> ); 

[ CharacterC CharacterTableC "L4(3)" ), [ 2106, 106, 42, 0, 27, 27, 0, 46, 6, 
6, 1, 7, 7, 0, 3, 3, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1 ] ) ] 

For the three automorphic extensions of the structure G — 5.2, we compute the extensions of the 
permutation character, and the bounds o' (G, a). 

gap> for name in [ "L4(3).2_l", "L4(3).2_2", "L4(3).2_3" ] do 



> t2:= CharacterTableC name ); 

> map:= InverseMapC GetFusionMapC t, t2 ) ); 

> torso := ListC prim, pi -> CompositionMaps C pi, map ) ); 

> ext:= ConcatenationC ListC torso, 

> X -> PermCharsC t2, recC torso := x ) ) ) ); 

> sigma:= ApproxPC ext, PositionC OrdersClassRepresentatives C t2 ) , 20 ) ); 

> max:= MaximumC sigma{ DifferenceC PositionsProperty C 

> OrdersClassRepresentatives C t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) } ); 
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> Print( name, ":\n", ext, "\n", max, "\n" ); 

> od; 

L4(3) .2_1: 

[ CharacterC CharacterTable( "L4(3).2_l" ), [ 2106, 106, 42, 0, 27, 0, 46, 6, 
6, 1, 7, 0, 3, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 4, 0, 0, 6, 6, 6, 6, 
2, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1 ] ) ] 



L4(3) .2_2: 

[ CharacterC CharacterTable( "L4(3).2_2" ), 

[ 2106, 106, 42, 0, 27, 27, 0, 46, 6, 6, 1, 7, 7, 0, 3, 3, 0, 0, 0, 1, 1, 
1, 0, 0, 0, 1, 306, 306, 42, 6, 10, 10, 0, 0, 15, 15, 3, 3, 3, 3, 0, 0, 
1, 1, 0, 1, 1, 0, ] ) ] 

17/117 
L4(3) .2_3: 

[ CharacterC CharacterTable ( "L4(3).2_3" ), [ 2106, 106, 42, 0, 27, 0, 46, 6, 
6, 1, 7, 0, 3, 0, 0, 1, 1, 0, 0, 0, 1, 36, 0, 0, 6, 6, 2, 2, 2, 1, 1, 
0, 0, ] ) ] 

2/117 

For S = Og"(2) an d s € 5* o f order 17, we have A4{S,s) = {L2(16).2}, the subgroup extends to 
L2(16).4 in S.2, see [CCN+851 p. 89]. This is a non-split extension, so a'{S.2,s) = holds. 

gap> SigmaFromMaxesC CharacterTable ( "08-(2).2" ), "17AB", 

> [ CharacterTable ( "L2(16) .4" ) ], [ 1 ], "outer" ); 


For S = 56(3) and s G S irreducible of order 14, we have M{S,s) = {(2 x [/ 3(3)).2, L2 (27).3|. In 
G = S.2, the subgroups extend to (4 x (73(3)). 2 and L2(27).6, respectively, see |CCN+85[ p. 113]. In 
order to show that a'{G,s) = 7/3240 holds, we compute the primitive permutation characters of 5* 
(cf. Section 133} and the unique extensions to G of those which are nonzero on s. 

gap> t:= CharacterTable ( "S6(3)" );; 
gap> t2:= CharacterTable ( "S6(3).2" );; 
gap> prim:= PrimitivePermutationCharacters ( t );; 
gap> spos:= PositionC AtlasClassNames ( t ), "14A" );; 
gap> prim:= Filtered( prim, x -> x[ spos ] <> );; 
gap> map:= InverseMapC GetFusionMapC t, t2 ) );; 
gap> torso:= List( prim, pi -> CompositionMaps ( pi, map ) );; 
gap> ext:= List( torso, pi -> PermChars( t2, rec( torso := pi ) ) ); 
[ [ CharacterC CharacterTable ( "S6(3).2" ), [ 155520, 0, 288, 0, 0, 0, 216, 
54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 1, 0, 0, 0, 0, 0, 6, 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 144, 
288, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 1, 1, 1, 

1, 0, ] ) ] , 

[ CharacterC CharacterTable ( "S6(3).2" ), [ 189540, 1620, 568, 0, 486, 0, 
0, 27, 540, 84, 24, 0, 0, 0, 0, 0, 54, 0, 0, 10, 0, 7, 1, 6, 6, 0, 
0, 0, 0, 0, 0, 18, 0, 0, 0, 6, 12, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 
0, 0, 234, 64, 30, 8, 0, 3, 90, 6, 0, 4, 10, 6, 0, 2, 1, 0, 0, 0, 
0, 0, 0, 0, 1, 1, 0, ] ) ] ] 

gap> spos:= PositionC AtlasClassNames C t2 ), "14A" );; 

gap> sigma:= ApproxPC ConcatenationC ext ), spos );; 

gap> MaximumC sigma-[ DifferenceC 

> PositionsProperty C OrdersClassRepresentatives C t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) } ) ; 
7/3240 
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For S — Us (2) and s g S of order 11, we have M{S, s) = {L2(ll)}, the subgroup extends to L2(ll)-2 
in 5'.2, see |CCN+85[ p. 73]. 

gap> SigmaFromHaxesC CharacterTable( "U5(2).2" ), "llAB", 

> [ CharacterTableC "L2(ll).2" ) ], [ 1 ], "outer" ); 
1/288 

Here we clean the workspace for the first time. This may save more than 100 megabytes, due to the 
fact that the caches for tables of marks and character tables are flushed. 

gap> CleEinWorkspace ; 

4.5 0^(3) 

We show that S — Og{3) = f2~(8, 3) satisfles the following. 

(a) For s e S of order 41, M{S,s) consists of one group of the type L2(81).2i = r2~(4, 9).2. 

(b) a{S,s) = 1/567. 

The only maximal subgroups of S c ontaining elements of order 41 have the type L2(81).2i, and there 
is one class of these subgroups, see |CCN+85l p. 141]. 

gap> SigmaFromHaxesC CharacterTableC "08-C3)" ), "41A", 

> [ CharacterTableC "L2C81).2_1" )],[!]); 
1/567 

4.6 0+(2) 

We show that S = Ofg{2) = ^+(10, 2) satisfles the following. 

(a) For s G 5 of order 45, M{S,s) consists of one group of the type (^5 x f/4(2)).2 = (S7"(4, 2) x 
n-(6,2)).2. 

(b) a{S,s) = 43/4 216. 

(c) For s as in (a), the maximal subgroup in (a) extends to 5*5 x ?74(2).2 in G = Aut(5') — S.2, and 
a'{G,s) = 23/248. 

The only maximal s ubgroups of S containing elements of order 45 are one class of groups H = 
{A5 X U4{2)) : 2, see |CCN+85[ p. 146]. (Note that none of the groups 58(2), Oj(2), 1.5(2), 0^(2), 
and As contains elements of order 45.) H extends to subgroups of the type H.2 — S5 x U4{2) : 2 in 
G, so we can compute 1^ = (1^.2)5. 

gap> ForAnyC [ "S8C2)", "08+C2)", "L5C2)", "08-C2)", "A8" ], 

> X -> 45 in OrdersClassRepresentatives C CharacterTableC x ) ) ); 
false 

gap> t:= CharacterTableC "010+C2)" );; 
gap> t2:= CharacterTableC "010+C2).2" );; 

gap> s2:= CharacterTableC "A5.2" ) * CharacterTableC "U4C2).2" ); 
CharacterTableC "A5 . 2xU4C2) . 2" ) 

gap> pi:= PossiblePermutationCharacters C s2, t2 );; 

gap> spos:= PositionC OrdersClassRepresentatives C t2 ), 45 );; 

gap> approx:= ApproxPC pi, spos );; 

gap> MaximumC approx{ ClassPositionsOfDerivedSubgroupC t2 ) } ) ; 
43/4216 
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Statement (c) follows from considering the outer classes of prime element order. 



gap> MaximumC approx{ Difference ( 

> PositionsProperty ( QrdersClassRepresentatives( t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) }■ ) ; 
23/248 

Alternatively, we can use SigmaFromMaxes. 

gap> SigmaFromMaxes ( t2, "45AB", [ s2 ] , [ 1 ], "outer" ); 
23/248 

4.7 Oro(2) 

We show that S — Oiq{2) — fl^{10,2) satisfies the following. 

(a) For s G 5 of order 33, M{S, s) consists of one group of the type 3 x U5{2) = GU(5, 2). 

(b) a{S,s) = 1/119. 

(c) For s as in (a), the maximal subgroup in (a) extends to (3 x (75(2)). 2 in G, and o'[G, s) = 1/595. 

The only max imal subgroups of 5* containing elements of order 11 have the types A12 and 3 x ?75(2), 
see |CCN+85[ p. 147]. So 3 X 175(2) is the unique class of subgroups containing elements of order 33. 
This shows statement (a), and statement (b) follows using SigmaFromMaxes. 

gap> SigmaFromMaxes ( CharacterTable( "010-(2)" ), "33A", 

> [ CharacterTableC "Cyclic", 3 ) * CharacterTable( "U5(2)" )],[!]); 
1/119 

The structure of the maximal subgroup of G follows from [CCN+851 p. 147]. We create its char- 
acter table with a generic construction that is based on the fact that the outer automorphism acts 
nontrivially on the two direct factors; this determines the character table uniquely. (See [Breb] for 
details.) 

gap> tblG:= CharacterTableC "U5(2)" );; 

gap> tblMG:= CharacterTableC "Cyclic", 3 ) * tblG; ; 

gap> tblGA:= CharacterTableC "U5C2).2" );; 

gap> acts:= PossibleActionsForTypeMGAC tblMG, tblG, tblGA );; 
gap> poss:= ConcatenationC ListC acts, pi -> 

> PossibleCharacterTablesOfTypeMGAC tblMG, tblG, tblGA, pi, 

> "C3xU5C2)) .2" ) ) ); 

[ recC table := CharacterTableC " C3xU5C2) ) . 2" ), 

MGfusMGA := [ 1, 2, 3, 4, 4, 5, 5, 6, 7, 8, 9, 10, 11, 12, 12, 13, 13, 
14, 14, 15, 15, 16, 17, 17, 18, 18, 19, 20, 21, 21, 22, 22, 23, 23, 
24, 24, 25, 25, 26, 27, 27, 28, 28, 29, 29, 30, 30, 31, 32, 33, 34, 
35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
69, 70, 71, 72, 73, 74, 75, 76, 77, 31, 32, 33, 35, 34, 37, 36, 38, 
39, 40, 41, 42, 43, 45, 44, 47, 46, 49, 48, 51, 50, 52, 54, 53, 56, 
55, 57, 58, 60, 59, 62, 61, 64, 63, 66, 65, 68, 67, 69, 71, 70, 73, 
72, 75, 74, 77, 76 ] ) ] 

Now statement (c) follows using SigmaFromMaxes. 

gap> SigmaFromMaxes C CharacterTableC "010-C2).2" ), "33AB" , 

> [ poss [1] .table ], [ 1 ], "outer" ); 
1/595 
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4.8 0+(2) 

We show that S = 0^(2) = ^^+(12, 2) satisfies the following. 

(a) For s G 5 of the type 4~ 1. 8~ (i. e., s decomposes the natural 12-dimensional module for 
00^2(2) ~ S.2 into an orthogonal sum of two irreducible modules of the dimensions 4 and 
8, respectively) and of order 85, M{S,s) consists of one group of the type Gg = (il~(4, 2) x 
f2~(8,2)).2 and two groups of the type 1/4(4). 2^ — f2^(6,4).2^ that are conjugate in G = 
Aut(S') = S.2 = SO+(12,2) but not conjugate in 5*. 

(b) a{S,s) = 7 675/1031 184. 

(c) a'(G,s) = 73/1 008. 

The element s is a ppd(12, 2; 8)-element in the sense of [GPPS99| . so the maximal subgroups of 
S that contain s are among the nine cases (2.1)-(2.9) listed in this paper; in the notation of this 
paper, we have g = 2, d = 12, e = 8, and r = 17. Case (2.1) does not occur for orthogonal groups 
and q = 2, according to |KL90) : case (2.2) contributes a unique maximal subgroup, the stabilizer 
Gs of the orthogonal decomposition; the cases (2.3), (2.4) (a), (2.5), and (2.6) (a) do not occur 
because r 7^ e + 1 in our situation; case (2.4) (b) describes extension field type subgroups that are 
contained in rL(6,4), which yields the candidates GU(6,2).2 = 3.Ue{2).Si -but 3.?76(2).3 does not 
contain elements of order 85- and ri+(6,4).2^ ^ 1/4(4). 2^ (two classes by KL90j Prop. 4.3.14]); the 
cases (2.6) (b)-(c) and (2.8) do not occur because they require d < 8; case (2.7) does not occur 
because [GPPS991 Table 5] contains no entry for r = 2e + 1 = 17; finally, case (2.9) does not occur 
because it requires e £ {d — 1, d} in the case r — 2e + 1. 

So we need the permutation characters of the actions on the cosets of L4(4).2^ (two classes) and Gg- 
According to [KL90I Prop. 4.1.6], Gs has the structure (r2"(4,2) x n"(8,2)).2. 

Currently the GAP Character Table Library does not contain the character table of S, but the table 
of G is available, and we work with this table. 

The two classes of 1/4(4). 2^^ type subgroups in S are fused in G. This can be seen from the fact that 
inducing the trivial character of a subgroup Hi = L4(4).2^ of 5* to G yields a character tp whose 
values are not all even; note that if Hi would extend in G to a subgroup of twice the size of Hi 
then tp would be induced from a degree two character of this subgroup whose values are all even, and 
induction preserves this property. 

gap> CharacterTableC "012+(2)" ); 
fail 

gap> t:= CharacterTableC "012+(2).2" );; 

gap> hl:= CharacterTableC "L4(4).2~2" );; 

gap> psi:= PossiblePermutationCharacters ( hi, t );; 

gap> Length ( psi ) ; 

1 

gap> ForAnyC psi[l], IsOddInt ); 
true 

The fixed element s of order 85 is contained in a member of each of the two conjugacy classes of the 
type L4(4).2^ in 5", since S contains only one class of subgroups of the order 85; note that the order 
of the Sylow 17 centralizer (in both S and G) is not divisible by 25. 

gap> SizesCentralizers ( t )■[ PositionsProperty ( 

> OrdersClassRepresentatives ( t ), x -> x = 17 ) } / 25; 

[ 408/5, 408/5 ] 

This implies that the restriction of 7/; to S is the sum tps = tti + 7r2, say, of the first two interesting 
permutation characters of S. 

The subgroup Gg of 5* extends to a group of the structure H2 = ^~ (4, 2). 2 x Q~ (8, 2). 2 in G, inducing 
the trivial characters of H2 to G yields a permutation character ^ of G whose restriction to S is the 
third permutation character ips = tts, say. 
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gap> h2:= CharacterTable ( "S5" ) * CharacterTable ( "08-(2).2" );; 
gap> phi:= PossiblePermutationCharacters ( h2, t );; 
gap> Length ( phi ) ; 
1 

We have 7ri(l) = n2{l) and 7ri(s) — n2{s), the latter again because S contains only one class of 
subgroups of order 85. 

Now statement (a) follows from the fact that ni{s) = 1 holds for 1 < i < 3. 
gap> prim:= Concatenation( psi, phi );; 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 85 ); 
213 

gap> List( prim, x -> x[ spos ] ); 
[ 2, 1 ] 

For statement (b), we compute a{S,s). Note that we have to consider only classes inside S = G' , 
and that 

, s ^ ivi{s) ■ TVijg) V'(s) -^(g) , y>(s) ■ y(fl) 

'^^^''^ = £ -.(1) =^MI^ + ^(T^ 

holds for g £ 5"^, so the characters ^ and (f are sufficient. 
gap> approx:= ApproxP( prim, spos );; 

gap> MaximumC approx{ ClassPositionsOfDerivedSubgroupC t ) }■ ) ; 
7675/1031184 

Statement (c) follows from considering the outer involution classes. Note that by |BGKI Remark 
after Proposition 5.14], only the subgroup H2 need to be considered, no novelties appear. 

gap> MaximumC approx{ Difference ( 

> PositionsProperty ( OrdersClassRepresentatives ( t ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t ) ) }■ ) ; 
73/1008 



4.9 0:2(2) 

We show that S = (2) ~ f2 (12,2) satisfies the following. 

(a) For s £ S irreducible of order 2® + 1 = 65, M{S, s) consists of two groups of the types 174 (4). 2 = 
f7"(6,4).2 and L2(64).3 = n"(4,8).3, respectively. 

(b) a{S,s) = 1/1023. 

(c) cr'(Aut(5'),s) = 1/347 820. 

By [BerOO] . M{S,s) consists of extension field subgroups, which have the structures (74 (4). 2 and 
Z/2(64).3, respectively, and by [KL90I Prop. 4.3.16], there is just one class of each of these types. 

Currently the GAP Character Table Library does not contain the character table of S, but the table 
of G = Aut(S') = Oj~2(2).2 is available. So we compute the permutation characters 111,112 of the 
extensions of the groups in M{S, s) to G -these maximal subgroups have the structures (74 (4). 4 and 
1/2 (64). 6, respectively- and compute the fixed point ratios of the restrictions to S. 

gap> t:= CharacterTable ( "012-(2)" ); 
fail 

gap> t:= CharacterTable ( "012-(2).2" );; 
gap> sl:= CharacterTable ( "U4(4).4" );; 
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gap> pil:= PossiblePermutationCharacters ( si, t );; 

gap> s2:= CharacterTableC "L2(64).6" );; 

gap> pi2:= PossiblePermutationCharacters ( s2, t );; 

gap> prim:= Concatenation( pil, pi2 );; Length( prim ); 

2 

Now statement (a) follows from the fact that 7ri(s) = 7r2(s) — 1 holds. 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 65 );; 
gap> List( prim, x -> x[ spos ] ); 
[ 1, 1 ] 

For statement (b), we compute a{S,s); note that we have to consider only classes inside S = G' . 
gap> approx:= ApproxP( prim, spos );; 

gap> MaximumC approx{ ClassPositionsOfDerivedSubgroupC t ) } ); 
1/1023 

Statement (c) follows from the values on the outer involution classes. 
gap> MaximumC approx{ Difference ( 

> PositionsProperty ( OrdersClassRepresentatives ( t ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t ) ) } ); 
1/347820 

4.10 ^6(4) 

We show that S — S(,{4:) ~ Sp(6, 4) satisfies the following. 

(a) For s £ S irreducible of order 65, M{S,s) consists of two groups of the types f/4(4).2 = 
r2~(6,4).2 and L2(64).3 = Sp(2,64).3, respectively. 

(b) a{S,s) = 16/63. 

(c) a'{Aut{S),s) = 0. 

By [BerOOj . the element s is contained in maximal subgroups of the given types, and by |KL90I 
Prop. 4.3.10, 4.8.6], there is exactly one class of these subgroups. 

The character tables of these two subgroups are currently not contained in the GAP Character Table 
Library. We compute the permutation character induced from the first subgroup as the unique 
character of the right degree that is combinatorially possible (cf. ,BP98,). 

gap> t:= CharacterTableC "S6(4)" );; 

gap> degree:= Size( t ) / ( 2 * Size( CharacterTableC "U4(4)" ) ) );; 
gap> pil:= PermCharsC t, rec( torso := [ degree ] ) );; 
gap> Length ( pil ) ; 
1 

The index of the second subgroup is too large for this simpleminded approach; therefore, we first 
restrict the set of possible irreducible constituents of the permutation character to those of 1%, where 
H is the derived subgroup of 1/2(64). 3, for which the character table is available. 

gap> CharacterTableC "L2(64).3" ); CharacterTableC "U4(4).2" ); 

fail 

fail 

gap> s:= CharacterTableC "L2C64)" );; 

gap> subpi:= PossiblePermutationCharacters C s, t );; 
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gap> Length ( subpi ) ; 
1 

gap> scp:= MatScalarProducts ( t, Irr( t ), subpi );; 
gap> nonzero:= PositionsProperty ( scp[l], x -> x <> ) ; 

[ 1, 11, 13, 14, 17, 18, 32, 33, 56, 58, 59, 73, 74, 77, 78, 79, 80, 93, 95, 

96, 103, 116, 117, 119, 120 ] 
gap> const:= RationalizedMat ( Irr( t ){ nonzero } );; 
gap> degree := Size( t ) / ( 3 * Size( s ) ); 
5222400 

gap> pi2:= PermCharsC t, rec( torso := [ degree ], chars := const ) );; 

gap> Length ( pi2 ) ; 

1 

gap> prim:= Concatenation( pil, pi2 );; 

Now statement (a) follows from the fact that 7ri(s) = 7r2(s) — 1 holds. 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 65 );; 
gap> List( prim, x -> x[ spos ] ); 
[ 1, 1 ] 

For statement (b), we compute a{G,s). 

gap> MaximumC ApproxP( prim, spos ) ); 
16/63 

In order to prove statement (c), we have to consider only the extensions of the above permutation 
characters of S to Aut(S') S.2 (cf. |BGKI Section 2.2]). 

gap> t2:= CharacterTableC "S6(4).2" );; 
gap> tfust2:= GetFusionMap( t, t2 );; 

gap> cand:= List( prim, x -> CompositionMaps ( x, InverseMapC tfust2 ) ) );; 

gap> ext:= List( cand, pi -> PermCharsC t2, rec( torso := pi ) ) ); 

[ [ CharacterC CharacterTableC "S6(4).2" ), [ 2016, 512, 96, 128, 32, 120, 0, 
6, 16, 40, 24, 0, 8, 136, 1, 6, 6, 1, 32, 0, 8, 6, 2, 0, 2, 0, 0, 
4, 0, 16, 32, 1, 8, 2, 6, 2, 1, 2, 4, 0, 0, 1, 6, 0, 1, 10, 0, 1, 
1, 0, 10, 10, 4, 0, 1, 0, 2, 0, 2, 1, 2, 2, 1, 1, 0, 0, 0, 1, 1, 1, 
1, 0, 0, 0, 0, 0, 32, 0, 0, 8, 0, 0, 0, 0, 8, 8, 0, 0, 0, 0, 8, 0, 
0, 0, 2, 2, 0, 2, 2, 0, 2, 2, 2, 0, ] ) ], 
[ CharacterC CharacterTableC "S6C4).2" ), [ 5222400, 0, 0, 0, 1280, 0, 960, 
120, 0, 0, 0, 0, 0, 0, 1600, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 1, 0, 0, 
15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 10, 0, 
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 
0, 0, 0, 960, 0, 0, 0, 16, 0, 24, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 4, 1, 0, 0, 3, 0, 0, 0, 0, ] ) ] ] 

gap> spos2:= PositionC OrdersClassRepresentatives C t2 ), 65 );; 

gap> sigma:= ApproxPC ConcatenationC ext ), spos2 );; 

gap> MaximumC approx{ Difference C 

> PositionsProperty C OrdersClassRepresentatives C t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) }■ ) ; 


For the simple group, we can alternatively consider a reducible element s : 2 _L 4 of order 85, which is 
a multiple of the primitive prime divisor r = 17 of 4* — 1. So we have e = 4, d = 6, and g = 4, in the 
terminology of |GPPS99j . Then M{S,s) consists of two groups, of the types f7+(6,4).2 = 1/4(4). 22 
and Sp(2,4) x Sp(4,4). This can be shown by checking |GPPS99I Ex. 2.1-2.9]. Ex. 2.1 yields the 
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candidates f7*(6, 4).2, but only f2+(6,4).2 contains elements of order 85. Ex. 2.2 yields the stabilizer 
of a two-dimensional subspace, which has the structure Sp(2, 4) x Sp(4, 4), by [KL90j . All other cases 
except Ex. 2.4 (b) are excluded by the fact that r = 4e + 1, and Ex. 2.4 (b) does not apply because 
dj gcd(d, e) is odd. 

gap> SigmaFromMaxesC CharacterTable( "S6(4)" ), "85A", 

> [ CharacterTableC "L4(4).2_2" ), 

> CharacterTableC "A5" ) * CharacterTableC "S4C4)" ) ], [ 1, 1 ] ); 
142/455 

This bound is not as good as the one obtained from the irreducible element of order 65 used above. 

gap> 16/63 < 142/455; 
true 

4.11 * 56(5) 

We show that S — S(i{5) — PSp(6, 5) satisfies the following. 

(a) For s £ S of the type 2 ± 4 (i. e., the preimage of s in Sp(6, 5) — 2.G decomposes the natural 
6-dimensional module for Sp(6, 5) into an orthogonal sum of two irreducible modules of the 
dimensions 2 and 4, respectively) and of order 78, M{S,s) consists of one group of the type 
Ga =2.(PSp(2,5) x PSp(4,5)). 

(b) cj{S,s) = 9/217. 

The order of s is a multiple of the primitive prime divisor r = 13 of 5'* — 1, so we have e = 4, d = 6, 
and (7 = 5, in the terminology of [GPPS99] . We check |GPPS99I Ex. 2.1-2.9]. Ex. 2.1 does not apply 
because the classes Cs and Cg are empty by |KL90I Table 3.5.C], Ex. 2.2 yields exactly the stabilizer 
G2 of a 2-dimensional subspace, Ex. 2.4 (b) does not apply because d/ gcd(d, e) is odd, and all other 
cases are excluded by the fact that r = 3e + 1. 

The group G2 has the structure 2.(PSp(2, 5) xPSp(4, 5)), which is a central product of Sp(2, 5) = 2.A5 
and Sp(4, 5) — 2.5*4(5) (see KL90, Prop. 4.1.3]). The character table of G2 can be derived from that 
of the direct product of 2.A5 and 2.^4(5), by factoring out the diagonal central subgroup of order 
two. 

gap> t:= CharacterTableC "S6C5)" );; 
gap> sl:= CharacterTableC "2.A5" );; 
gap> s2:= CharacterTableC "2.S4C5)" );; 
gap> dp:= si * s2; 
CharacterTableC "2 . A5x2 . S4C5) " ) 

gap> c:= DifferenceC ClassPositionsOf Centre C dp ), UnionC 

> GetFusionMapC si, dp ), GetFusionMapC s2, dp ) ) ); 
[ 62 ] 

gap> s : = dp / c ; 

CharacterTableC "2 . A5x2 . S4C5) / [ 1, 62 ] " ) 

Now we compute (j(5, s). 

gap> SigmaFromMaxesC t, "78A", [ s ], [ 1 ] ); 
9/217 
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4.12 ^8(3) 

We show that S — 5'g(3) — PSp(8, 3) satisfies the foUowing. 

(a) For s £ S irreducible of order 41, A4{S,s) consists of one group M of the type 5*4(9). 2 = 
PSp(4,9).2. 

(b) a{S,s) = 1/546. 

(c) The preimage of s in the matrix group 2.^8 (3) = Sp(8, 3) can be chosen of order 82, and the 
preimage of M is 2.54(9). 2 = Sp(4, 9). 2. 

By [BerOO] . the only maximal subgroups of S that contain irreducible elements of order (3* + l)/2 = 41 
are of extension field type, and by [KL90I Prop. 4.3.10], these groups have the structure 54(9). 2 and 
there is exactly one class of these groups. 

The group U — 54(9) has three nontrivial outer automorphisms, the character table of the subgroup 
U.2 in question has the identifier "S4(9) .2_1", which follows from the fact that the extensions of U 
by the other two outer automorphisms do not admit a class fusion into 5. 

gap> t:= CharacterTable ( "S8(3)" );; 

gap> pi:= List( [ "S4(9).2_l", "S4(9).2_2", "S4(9).2_3" ], 

> name -> PossiblePermutationCharacters ( 

> CharacterTable ( name ), t ) );; 
gap> List( pi, Length ); 

[ 1, 0, ] 

Now statement (a) follows from the fact that {lu.2)'^{s) = 1 holds. 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 41 );; 

gap> pi [1] [1] [ spos ] ; 

1 

Now we compute cr(5, s) in order to show statement (b). 

gap> MaximumC ApproxP( pi[l], spos ) ); 
1/546 

Statement (c) is clear from the description of extension field type subgroups in [KL90) . 

4.13 UiiA) 

We show that 5 = (74(4) = SU(4, 4) satisfies the following. 

(a) For s £ 5 of the type 1 ± 3 (i. e., s decomposes the natural 4-dimensional module for SU(4, 4) 
into an orthogonal sum of two irreducible modules of the dimensions 1 and 3, respectively) and 
of order 4^ + 1 = 65, M{S, s) consists of one group of the type Gi = 5 x 1/3(4) = GU(3, 4). 

(b) a{S,s) = 209/3 264. 

By |MSW94] , the only maximal subgroups of 5 that contain s are one class of stabilizers H = 5 x [/a (4) 
of this decomposition, and clearly there is only one such group containing s. 

Note that H has index 3 264 in 5, since 5 has two orbits on the 1-dimensional subspaces, of lengths 
1 105 and 3 264, respectively, and elements of order 13 = 65/5 lie in the stabilizers of points in the 
latter orbit. 
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gap> g:= SU(4,4) ; ; 

gap> orbs:= Orbits( g, NormedRowVectors ( GF(16)"4 ), OnLines );; 
gap> orblen:= List( orbs, Length ); 
[ 1105, 3264 ] 

gap> List( orblen, x -> x mod 13 ); 
[ 0, 1 ] 

We compute the permutation character Iq^ ; there is exactly one combinatorially possible permutation 
character of degree 3 264 (cf. |BP98) ). 

gap> t:= CharacterTableC "U4(4)" );; 

gap> pi:= PermCharsC t, rec( torso := [ orblen [2] ] ) );; 

gap> Length ( pi ) ; 

1 

Now we compute cr{S, s). 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 65 );; 

gap> Maximum ( ApproxP( pi, spos ) ); 

209/3264 

4.14 Uei2) 

We show that S = (76(2) = PSU(6, 2) satisfies the following. 

(a) For s G 5* of order 11, A4{S,s) consists of one group of the type 175(2) = SU(5, 2) and three 
groups of the type M22. 

(b) a{S,s) = 5/21. 

(c) The preimage of s in the matrix group SU(6,2) = 3.Ue,{2) can be chosen of order 33, and 
the preimages of the groups in Ai{S,s) have the structures 3 x (75(2) = GU(5, 2) and 3.AI22, 
respectively. 

(d) With s as in (a), the automorphic extensions 5'.2, S.3 of S satisfy <j'{S.2,s) = 5/96 and 
a'{S.3,s) = 59/224. 

According to the list of maximal subgroups of 5* in [CCN^SSl p. 115], s is contained exactly in 
maximal subgroups of the types (75(2) (one class) and M22 (three classes). 

The permutation character of the action on the cosets of (75(2) type subgroups is uniquely determined 
by the character tables. We get three possibilities for the permutation character on the cosets of M22 
type subgroups; they correspond to the three classes of such subgroups, because each of these classes 
contains elements in exactly one of the conjugacy classes 4C, 4D, and 4E of elements in 5", and these 
classes are fused under the outer automorphism of S of order three. 

gap> t:= CharacterTableC "U6(2)" );; 

gap> sl:= CharacterTableC "U5(2)" );; 

gap> pil:= PossiblePermutationCharacters ( si, t );; 

gap> Length ( pil ) ; 

1 

gap> s2:= CharacterTableC "M22" );; 

gap> pi2:= PossiblePermutationCharacters ( s2, t ); 

[ Character ( CharacterTableC "U6C2)" ), [ 20736, 0, 384, 0, 0, 0, 54, 0, 0, 

0, 0, 48, 0, 16, 6, 0, 0, 0, 0, 0, 0, 6, 0, 2, 0, 0, 0, 4, 0, 0, 0, 0, 

1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ] ), 

Character C CharacterTableC "U6C2)" ), [ 20736, 0, 384, 0, 0, 0, 54, 0, 0, 
0, 48, 0, 0, 16, 6, 0, 0, 0, 0, 0, 0, 6, 0, 2, 0, 0, 4, 0, 0, 0, 0, 0, 
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1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ] ), 
Character ( CharacterTable ( "U6(2)" ), [ 20736, 0, 384, 0, 0, 0, 54, 0, 0, 

48, 0, 0, 0, 16, 6, 0, 0, 0, 0, 0, 0, 6, 0, 2, 0, 4, 0, 0, 0, 0, 0, 0, 

1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ] ) ] 
gap> imgs:= Set( List( pi2, x -> Position( x, 48 ) ) ); 
[ 10, 11, 12 ] 

gap> AtlasClassNamesC t ){ imgs }; 
[ "4C", "4D", "4E" ] 

gap> GetFusionMapC t, CharacterTable ( "U6(2).3" ) ){ imgs >; 
[ 10, 10, 10 ] 

gap> prim:= Concatenation( pil, pi2 );; 

Now statement (a) follows from the fact that the permutation characters have the value 1 on s. 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 11 );; 
gap> List( prim, x -> x[ spos ] ); 
[ 1, 1, 1, 1 ] 

For statement (b), we compute a{S,s). 

gap> MaximumC ApproxP( prim, spos ) ); 
5/21 

Statement (c) follows from [CCN^SS] , plus the information that 3.C/6(2) does not contain groups of 
the structure 3 x M22. 

gap> PossibleClassFusions ( 

> CharacterTable ( "Cyclic", 3 ) * CharacterTable ( "M22" ), 

> CharacterTable ( "3.U6(2)" ) ); 
[ ] 

For statement (d), we need that the relevant maximal subgroups of S.2 a re 1/5(2). 2 and one subgroup 
M22.2, and that the relevant maximal subgroup of S.3 is U5{2) x 3, see [CCN+851 p. 115]. 

gap> SigmaFromMaxesC CharacterTable ( "U6(2).2" ), "llAB", 

> [ CharacterTable ( "U5(2).2" ), CharacterTable ( "M22.2" ) ], 

> [1,1], "outer" ) ; 
5/96 

gap> SigmaFromMaxesC CharacterTable ( "U6(2).3" ), "llA", 

> [ CharacterTable ( "U5(2)" ) * CharacterTable ( "Cyclic", 3 ) ], 

> [ 1 ] , "outer" ) ; 
59/224 



5 Computations using Groups 

Before we start the computations using groups, we clean the workspace. 
gap> CleanWorkspace ; 
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5.1 A2m+u 2 < m < 11 



For alternating groups of odd degree n = 2m + 1, we choose s to be an n-cycle. The interesting cases 
in [BGKI Proposition 6.7] are 5 < n < 23. 

In each case, we compute representatives of the maximal subgroups of An, consider only those that 
contain an n-cycle, and then compute the permutation characters. Additionally, we show also the 
names that are used for the subgroups in the GAP Library of Transitive Groups, see [HulOS] and the 
documentation of this library in the GAP Reference Manual. 

gap> PrimitivesInfoForQddDegreeAlternatingGroup:= functionC n ) 



> local G, max, cycle, spos, prim, nonz; 
> 

> G:= AlternatingGroupC n ); 
> 

> # Compute representatives of the classes of maximal subgroups . 

> max:= MaximalSubgroupClassReps ( G ); 
> 

> # Omit subgroups that cannot contain an 'n' -cycle. 

> max:= Filtered( max, m -> IsTransitive( m, [1 .. n ] ) ); 
> 

> # Compute the permutation characters. 

> cycle := [] ; 

> cycle [ n-1 ] : = 1 ; 

> spos:= PositionProperty ( ConjugacyClasses ( CharacterTable ( G ) ), 

> c -> CycleStructurePermC Representative ( c ) ) = cycle ); 

> prim:= List( max, m -> Trivial Character ( m )~G ); 

> nonz:= PositionsProperty ( prim, x -> x[ spos ] <> ); 
> 

> # Compute the subgroup names eaid the multiplicities. 

> return rec( spos := spos, 

> prim := prim{ nonz }■, 

> g^ps := List( max{ nonz }■, 

> m -> TransitiveGroupC n, 

> Transitiveldentif icationC m ) ) ) , 

> mult := List( prim{ nonz }, x -> x[ spos ] ) ); 



> end; ; 

The sets A4(s) and the values a{An, s) are as follows. For each degree in question, the first list shows 
names for representatives of the conjugacy classes of maximal subgroups containing a fixed n-cycle, 
and the second list shows the number of conjugates in each class. 

gap> for n in [5, 7 . . 23 ] do 

> prim:= Primitivesinf oForOddDegreeAlternatingGroupC n ); 

> bound:= Maximum( ApproxP( prim. prim, prim. spos ) ); 

> Print ( n, ": ", prim.grps, ", ", prim. mult, ", ", bound, "\n" ); 

> od; 

5: [ D(5) = 5:2 ] , [ 1 ] , 1/3 

7: [ L(7) = L(3,2), L(7) = L(3,2) ], [ 1, 1 ], 2/5 

9: [ 1/2[S(3)-3]S(3) , L(9) : 3=P I L(2, 8) ], [ 1, 3 ], 9/35 

11: [ M(ll), M(ll) ], [1, 1 ], 2/105 

13: [ F_78(13)=13:6, L(13)=PSL(3,3) , L(13)=PSL(3,3) ], [ 1, 2, 2 ], 4/1155 
15: [ 1/2[S(3)-5]S(5) , 1/2 [S(5) "3] S(3) , L(15)=A_8(15)=PSL(4,2) , 

L(15)=A_8(15)=PSL(4,2) ], [1, 1, 1, 1 ], 29/273 
17: [ L(17) :4=PYL(2,16) , L(17) :4=PYL(2, 16) ], [1, 1 ], 2/135135 
19: [ F_171(19)=19:9 ], [ 1 ], 1/6098892800 
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21: [ t21nl50, t21nl61, t21n91 ], [1, 1, 2 ], 29/285 
23: [ M(23), M(23) ], [1, 1 ], 2/130945815 



In the above output, a subgroup printed as 1/2 [S(rzi ) "712] S (712) , where n — nin2 holds, denotes 
the intersection of An with the wreath product 5„i ; Sn^ < Sn- (Note that the ATLAS denotes 
the subgroup 1/2 [S(3) "3] S (3) of A9 as 3^ ; 5'4.) The groups printed as P|L(2,8) and PYL(2,16) 
denote PrL(2,8) and PrL(2, 16), respectively. And the three subgroups of A21 have the structures 
{S3 I S7) n A21, (5*7 ; 5*3) n ^21, and PGL(3,4), respectively. 

Note that Ag contains two conjugacy classes of maximal subgroups of the type PrL(2, 8) = -^2(8) : 3, 
and that each 9-cycle in Ag is contained in exactly three conjugate subgroups of this type. For 
n £ {13, 15, 17}, An contains two conjugacy classes of isomorphic maximal subgroups of linear type, 
and each n-cycle is contained in subgroups from each class. Finally, A21 contains only one class of 
maximal subgroups of linear type. 

For the two groups A5 and Ar, the values computed above are not sufficient. See Section \5l2\ and \5A\ 
for a further treatment. 

The above computations look like a brute-force approach, but note that the computation of the 
maximal subgroups of alternating and symmetric groups in GAP uses the classification of these 
subgroups, and also the conjugacy classes of elements in alternating and symmetric groups can be 
computed cheaply. 

Alternative (character-theoretic) computations for n £ {5, 7,9, 11, 13} were shown in Section [4.31 (A 
hand calculation for the case n = 19 can be found in [BW75) .) 

5.2 A, 

We show that S = ^5 satisfies the following. 

(a) i7{S) = 1/3, and this value is attained exactly for a{S,s) with s of order 5. 

(b) For s G S of order 5, M{S, s) consists of one group of the type Dio- 

(c) P{S) — 1/3, and this value is attained exactly for P{S, s) with s of order 5. 

(d) Each element in S together with one of (1,2)(3,4), (1,3)(2,4), (1,4)(2,3) generates a proper 
subgroup of 5*. 

(e) Both the spread and the uniform spread of S is exactly two (see [BW75] 1. with s of order 5. 
Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTableC "A5" );; 

gap> ProbGenInf oSimpleC t ); 

[ "A5", 1/3, 2, [ "5A" ] , [ 1 ] ] 

Statement (b) can be read off from the primitive permutation characters, and the fact that the unique 
clas s of ma ximal subgroups that contain elements of order 5 consists of groups of the structure Dio, 
see [CCN +85 p. 2]. 

gap> OrdersClassRepresentatives ( t ); 
[ 1, 2, 3, 5, 5 ] 

gap> PrimitivePermutationCharacters ( t ); 

[ CharacterC CharacterTableC "A5" ) , [ 5 , 1 , 2 , , ] ) , 

CharacterC CharacterTableC "A5" ) , [ 6 , 2 , , 1 , 1 ] ) , 

CharacterC CharacterTableC "A5" ), [ 10 , 2 , 1 , , ] ) ] 

For statement (c), we compute that for all nonidentity elements s £ S and involutions g € S, 
-P(<7i'S) > 1/3 holds, with equality if and only if s has order 5. We actually compute, for class 
representatives s, the proportion of involutions g such that {g, s) ^ S holds. 
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gap> g:= AlternatingGroupC 5 );; 
gap> inv:= g.l~2 * g.2; 
(1,4) (2,5) 

gap> cclreps:= List( ConjugacyClasses ( g ), Representative );; 
gap> SortParallel ( List( cclreps, Order ), cclreps ); 
gap> List( cclreps, Order ); 
[ 1, 2, 3, 5, 5 ] 

gap> Size( ConjugacyClass ( g, inv ) ); 
15 

gap> prop:= List( cclreps, 

> r -> RatioOf NongenerationTransPermGroup( g, inv, r ) ); 

[ 1, 1, 3/5, 1/3, 1/3 ] 
gap> Minimum ( prop ) ; 
1/3 

Statement (d) follows by explicit computations. 

gap> triple- [ (1,2)(3,4), (1,3)(2,4), (1,4)(2,3) ];; 

gap> CommonGeneratorWithGivenElements ( g, cclreps, triple ); 

fail 

As for statement (e), we know from (a) that the uniform spread of S is at least two, and from (d) 
that the spread is less than three. 

5.3 Aq 

We show that S — Ae satisfies the following. 

(a) (j{S) — 2/3, and this value is attained exactly for a{S,s) with s of order 5. 

(b) For s of order 5, M{S, s) consists of two nonconjugate groups of the type A5. 

(c) P{S) = 5/9, and this value is attained exactly for P{S, s) with s of order 5. 

(d) Each element in S together with one of (1,2)(3,4), (1,3)(2,4), (1,4)(2,3) generates a proper 
subgroup of S. 

(e) Both the spread and the uniform spread of S is exactly two (see [BW75) ). with s of order 4. 

(f) For X, y £ , there is s £ Sa such that S C {x, s) n {y, s). It is not possible to find s £ S with 
this property, or s in a prescribed conjugacy class of Se- 

(g) o-(PGL(2, 9)) = 1/6 and a{Mw) = 1/9, with s of order 10 and 8, respectively. 

(Note that in this example, the optimal choice of s for P{S) cannot be used to obtain the result on 
the exact spread.) 

Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTable( "A6" );; 

gap> ProbGenInf oSimple( t ); 

[ "A6", 2/3, 1, [ "5A" ] , [ 2 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the two classes of 
maximal subgroups that contain elements of order 5 consist of groups of the structure A5, see [CCN"'"85l 
p. 4]. 
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gap> OrdersClassRepresentatives ( t ); 
[ 1, 2, 3, 3, 4, 5, 5 ] 

gap> prim:= PrimitivePermutationCharacters( t ); 

[ CharacterC CharacterTable( "A6" ) , [ 6, 2, 3, , , 1 , 1 ] ) , 
CharacterC Char act erTable( "A6" ) , [ 6, 2, 0, 3 , , 1 , 1 ] ) , 
CharacterC CharacterTable( "A6" ), [10, 2, 1, 1, 2, 0, ] ), 
CharacterC CharacterTableC "A6" ), [15, 3, 3, 0, 1, 0, ] ), 
CharacterC CharacterTableC "A6" ), [15, 3, 0, 3, 1, 0, ] ) ] 

For statement (c), we first compute that for ail nonidentity eiements s £ S and invoiutions g G S, 
PidjS) > 5/9 iioids, with equaiity if and oniy if s has order 5. We actually compute, for class 
representatives s, the proportion of involutions g such that {g, s) ^ S holds. 

gap> S:= AlternatingGroupC 6 );; 
gap> inv:= CS. 1*3.2) "2; 
(1,3)C2,5) 

gap> cclreps:= ListC ConjugacyClassesC S ), Representative );; 

gap> SortParallelC ListC cclreps. Order ), cclreps ); 

gap> ListC cclreps, Order ); 

[ 1, 2, 3, 3, 4, 5, 5 ] 

gap> C:= ConjugacyClassC S, inv );; 

gap> SizeC C ) ; 

45 

gap> prop:= ListC cclreps, 

> r -> RatioOf NongenerationTransPermGroupC S, inv, r ) ); 
[ 1, 1, 1, 1, 29/45, 5/9, 5/9 ] 

gap> Minimum C prop ) ; 
5/9 

Now statement (c) follows from the fact that for g £ S oi order larger than two, a{S,g) < 1/2 < 5/9 
holds. 

gap> ApproxPC prim, 6 ); 

[ 0, 2/3, 1/2, 1/2, 0, 1/3, 1/3 ] 

Statement (d) follows by explicit computations. 

gap> triple:= [ Cl,2)C3,4), Cl,3)C2,4), Cl,4)C2,3) ];; 

gap> CommonGeneratorWithGivenElementsC S, cclreps, triple ); 

fail 

An alternative triple to that in statement (d) is the one given in [BW75) . 

gap> triple:= [ Cl,3)C2,4), Cl,5)C2,6), C3,6)C4,5) ];; 

gap> CommonGeneratorWithGivenElementsC S, cclreps, triple ); 

fail 

Of course we can also construct such a triple, as follows. 

gap> TripleWithPropertyC [ [ inv ] , C, C ] , 

> 1 -> For All C S, elm -> 

> ForAnyC 1, x -> not IsGeneratorsOf TransPermGroupC S, [ elm, x ] ) ) ) ); 
[ Cl,3)C2,5), Cl,3)C2,6), Cl,3)C2,4) ] 

For statement (e), we use the random approach described in Section \3l3\ 
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gap> s:= (1,2,3,4) (5,6);; 

gap> reps:= Filtered ( cclreps, x -> Order ( x ) > 1 );; 
gap> ResetGlobalRandomNumberGeneratorsO ; 

gap> for pair in UnorderedTuples ( reps, 2 ) do 



> if RandomCheckUnif orinSpread( S, pair, s, 40 ) <> true then 

> Print ( "#E nongeneration! \n" ); 

> fi; 

> od; 



We get no output, so a suitable element of order 4 works in all cases. Note that we cannot use an 
element of order 5, because it fixes a point in the natural permutation representation, and we may 
take xi = (1, 2, 3) and X2 = (4, 5, 6). With this argument, only elements of order 4 and double 3-cycles 
are possible choices for s, and the latter are excluded by the fact that an outer automorphism maps 
the class of double s-cycles in Ae to the class of 3-cycles. So no element in Ae of order different from 
4 works. 

Next we show statement (f). Already in Afj.2i — Sq, elements s of order 4 do in general not work 
because they do not generate with transpositions. 

gap> G:= SymmetricGroup( 6 );; 

gap> RatioOfNongenerationTransPermGroup( G, s, (1,2) ); 
1 

Also, choosing s from a prescribed conjugacy class of Sq (that is, also s outside Aq is allowed) with 
the property that Ae C {x, s) PI {y, s) is not possible. Note that only 6-cycles are possible for s if x 
and y are commuting transpositions, and -applying the outer automorphism- no 6-cycle works for 
two commuting fixed-point free involutions. (The group is small enough for a brute force test.) 

gap> goods := Filtered( Elements ( G ), 

> s -> IsGeneratorsOfTransPermGroupC G, [ s, (1,2) ] ) and 

> IsGeneratorsOfTraiisPermGroup( G, [ s, (3,4) ] ) );; 
gap> Collected ( List( goods, CycleStructurePerm ) ); 
[[[,,,, 1 ], 24 ] ] 

gap> goods := Filtered( Elements ( G ), 

> s -> IsGeneratorsOfTransPermGroup( G, [ s, (1 , 2) (3,4) (5 ,6) ] ) and 

> IsGeneratorsOfTransPermGroup( G, [ s, (1,3) (2,4) (5,6) ] ) );; 
gap> Collected ( List( goods, CycleStructurePerm ) ); 

[ [ [ 1, 1 ], 24 ] ] 

However, for each pair of nonidentity element x, y G Sa, there is s G Ss such that {x,s) and {y,s) 
both contain Ae. (If s works for the pair {x, y) then works for {x^,y^), so it is sufficient to consider 
only orbit representatives {x, y) under the conjugation action of G on pairs. Thus we check conjugacy 
class representatives x and, for fixed x, representatives of orbits of Cg{x) on the classes y^ , i. e., 
representatives of CG(j/)-CG(a;)-double cosets in G. Moreover, clearly we can restrict the checks to 
elements x, y of prime order.) 



gap> Sgens:= GeneratorsOf Group ( S );; 

gap> primord:= Filtered( List( ConjugacyClasses ( G ), Representative ), 

> X -> IsPrimeInt( Order ( x ) ) );; 
gap> for X in primord do 

> for y in primord do 

> for pair in DoubleCosetRepsAndSizes ( G, Centralizer( G, y ), 

> Centralizer( G, x ) ) do 

> if not ForAny( G, s -> IsSubset( Group( x,s ), S ) and 

> IsSubset( Group ( y*pair[l], s ), S ) ) then 

> Error( [ x, y ] ); 
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> 



fi; 



> 



od; 



> 



od; 



> 



od; 



In other words, the spread of Se is 2 but the uniform spread of Se is not 2 but only 1. 

We cannot always find s £ Aa with the required property: If x is a transposition then any s with 
5 C {x,s) must be a 5-cycle. 

gap> filt:= FilteredC S, s -> IsSubsetC GroupC (1,2), s ), S ) );; 
gap> CollectedC List( filt. Order ) ); 
[ [ 5, 48 ] ] 

Moreover, clearly such s fixes one of the moved points of x, so we may prescribe a transposition y x 
that commutes with x, it satisfies S 2 (j/is)- 

For the other two automorphic extensions = PGL(2, 9) and Aq.22. = Mio, we compute the 

character-theoretic bounds a{Ae.22) = 1/6 and cr(^6-23) = 1/9, which shows statement (g). 

gap> ProbGenlnfoSimpleC CharacterTable( "A6.2_2" ) ); 

[ "A6.2_2", 1/6, 5, [ "lOA" ], [ 1 ] ] 

gap> ProbGenlnfoSimpleC CharacterTableC "A6.2_3" ) ); 

[ "A6.2_3", 1/9, 8, [ "8C" ], [ 1 ] ] 

Note that (j'(PGL(2, 9), s) = 1/6, with s of order 5, and a'{Mio,s) — for any s £ A^ since Mio is 
a non-split extension of Aa. 

gap> t:= CharacterTableC "A6" );; 
gap> t2:= CharacterTableC "A6.2_2" );; 

gap> spos:= PositionsProperty C OrdersClassRepresentatives C t ), x->x=5 );; 
gap> ProbGenInf oAlmostSimpleC t, t2, spos ); 
[ "A6.2_2", 1/6, [ "5A", "5B" ], [1, 1 ] ] 



We show that 5 = ^47 satisfies the following. 

(a) (7{S) — 2/5, and this value is attained exactly for a{S,s) with s of order 7. 

(b) For s of order 7, M{S, s) consists of two nonconjugate subgroups of the type 1/2(7). 

(c) P{S) = 2/5, and this value is attained exactly for P{S, s) with s of order 7. 

(d) The uniform spread of S is exactly three, with s of order 7. 

Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTableC "A7" );; 

gap> ProbGenlnfoSimpleC t ); 

[ "A7", 2/5, 2, [ "7A" ] , [ 2 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the two classes 
of maximal su bgroups that contain elements of order 7 consist of groups of the structure 1/2(7), 



5.4 A 



■7 



see [CCN+851 p. 10]. 
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gap> OrdersClassRepresentatives ( t ); 
[ 1, 2, 3, 3, 4, 5, 6, 7, 7 ] 

gap> prim:= PrimitivePermutationCharacters( t ); 

[ CharacterC CharacterTable( "A7" ), [ 7, 3, 4, 1, 1, 2, 0, 0, ] ), 
CharacterC CharacterTable( "A7" ), [15, 3, 0, 3, 1, 0, 0, 1, 1 ] ), 
CharacterC CharacterTableC "A7" ), [15, 3, 0, 3, 1, 0, 0, 1, 1 ] ), 
CharacterC CharacterTableC "A7" ), [21, 5, 6, 0, 1, 1, 2, 0, ] ), 
CharacterC CharacterTableC "A7" ), [35, 7, 5, 2, 1, 0, 1, 0, ] ) ] 

For statement (c), we compute that for all nonidentity elements s £ S and involutions g £ S, 
PiQjS) > 2/5 holds, with equality if and only if s has order 7. We actually compute, for class 
representatives s, the proportion of involutions g such that {g, s) ^ S holds. 

gap> g:= AlternatingGroupC 7 );; 
gap> inv:= Cg. l~3*g. 2) ~3; 
C2,6)C3,7) 

gap> ccl:= ListC ConjugacyClasses C g ), Representative );; 
gap> SortParallel C ListC ccl, Order ), ccl ); 
gap> ListC ccl. Order ); 

[ 1, 2, 3, 3, 4, 5, 6, 7, 7 ] 

gap> SizeC ConjugacyClass C g, inv ) ); 

105 

gap> prop:= ListC ccl, r -> RatioOf NongenerationTransPermGroupC g, inv, r ) ); 
[ 1, 1, 1, 1, 89/105, 17/21, 19/35, 2/5, 2/5 ] 
gap> Minimum C prop ) ; 
2/5 

For statement (d), we use the random approach described in Section [3.31 By the character-theoretic 
bounds, it suffices to consider triples of elements in the classes 2A or 3B. 

gap> OrdersClassRepresentatives C t ); 
[ 1, 2, 3, 3, 4, 5, 6, 7, 7 ] 

gap> spos:= PositionC OrdersClassRepresentatives C t ), 7 );; 
gap> SizesCentralizersC t ); 

[ 2520, 24, 36, 9, 4, 5, 12, 7, 7 ] 
gap> ApproxPC prim, spos ); 

[ 0, 2/5, 0, 2/5, 2/15, 0, 0, 2/15, 2/15 ] 

gap> s:= Cl,2,3,4,5,6,7) ; ; 

gap> 3B:= Cl,2,3) C4,5,6) ; ; 

gap> C3B:= ConjugacyClass C g, 3B );; 

gap> SizeC C3B ) ; 

280 

gap> ResetGlobalRandomNumberGenerators C) ; 

gap> for triple in UnorderedTuples C [ inv, 3B ] , 3 ) do 

> if RandomCheckUnif ormSpreadC g, triple, s, 80 ) <> true then 

> PrintC "#E nongeneration! \n" ); 

> fi; 

> od; 

We get no output, so the uniform spread of S is at least three. 

Alternatively, we can use Lemma [2.11 this approach is technically more involved but faster. We work 
with the diagonal product of the two degree 15 representations of S, which is constructed from the 
information stored in the GAP Library of Tables of Marks. 
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gap> tom:= TableOf Marks ( "A7" );; 

gap> a7:= Under lyingGroupC torn );; 

gap> tommaxes:= MaximalSubgroupsTom( torn ); 

[ [ 39, 38, 37, 36, 35 ] , [7, 15, 15, 21, 35 ] ] 

gap> indexl5:= List( tommaxes [1] ■[ [2, 3 ] }■ , 

> i -> RepresentativeTomC torn, i ) ) ; 
[ Group([ (1,3)(2,7), (1,5,7) (3,4,6) ]), 

Group([ (1,4)(2,3), (2,4,6) (3,5,7) ]) ] 
gap> degl5:= List( indexl5, s -> Right TransversaK a7, s ) );; 
gap> reps:= List( degl5, 1 -> Action( a7, 1, OnRight ) ); 
[ Group([ (1,5,7)(2,9,10)(3,11,4)(6,12,8)(13,14,15), 
(1,8,15,5,12) (2,13,11,3,10) (4,14,9,7,6) ]) , 

Group([ (1,2,3) (4,6,5) (7,8,9) (10,12,11) (13,15,14) , 
(1,12,3,13,10) (2,9,15,4,11) (5,6,14,7,8) ]) ] 
gap> g:= DiagonalProductOf PermGroups ( reps );; 
gap> ResetGlobalRandomNumberGenerators ; 
gap> repeat s:= Random ( g ); 

> until Order ( s ) = 7; 
gap> NrMovedPoints ( s ); 
28 

gap> mpg:= MovedPoints( g );; 

gap> fixs:= Difference( mpg, MovedPoints( s ) );; 
gap> orb_s:= Orbit ( g, fixs, OnSets );; 
gap> Length( orb_s ) ; 
120 

gap> SizesCentralizers ( t ); 

[ 2520, 24, 36, 9, 4, 5, 12, 7, 7 ] 

gap> repeat 2a:= Random( g ); until Order( 2a ) = 2; 
gap> repeat 3b := Random ( g ); 

> until Order( 3b ) = 3 and Size( Centralizer( g, 3b ) ) = 9; 

gap> orb2a:= Orbit( g, Difference( mpg, MovedPoints( 2a ) ) , DnSets );; 
gap> orb3b:= Orbit( g, Difference( mpg, MovedPoints( 3b ) ) , DnSets );; 
gap> orb2aor3b:= Union( orb2a, orb3b );; 

gap> TripleWithProperty( [ [ orb2a[l], orb3b[l] ], orb2aor3b, orb2aor3b ], 

> 1 -> ForAlK orb_s, 

> f -> not IsEmpty( Intersection( Union( 1 ) , f ) ) ) ) ; 
fail 

It remains to show that for any choice of s G S, a quadruple of elements in 5*^ exists such that s 
generates a proper subgroup of S together with at least one of these elements. 

First we observe (without using GAP) that there is a pair of 3-cycles whose fixed points cover the 
seven points of the natural permutation representation. This implies the statement for all elements 
s £ S that fix a point in this representation. So it remains to consider elements s of the orders six 
and seven. 

For the order seven element, the above setup and Lemma l2.1l can be used. 



gap> QuadrupleWithProperty ( [ [ orb2a[l] ] , orb2a, orb2a, orb2a ] , 

> 1 -> ForAlK orb_s, 

> f -> not IsEmpty( Intersection( Union( 1 ), f ) ) ) ); 
[ [ 2, 11, 15, 19, 24, 29 ] , [ 4, 9, 13, 21, 22, 28 ], 

[ 3, 10, 14, 20, 23, 30 ] , [ 1, 5, 7, 25, 26, 27 ] ] 

For the order six element, we use the diagonal product of the primitive permutation representations 
of the degrees 21 and 35. 
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gap> has6A:= List( tommaxes [1] ■[ [4, 5 ] }, 

> i -> RepresentativeTomC torn, i ) ) ; 
[ Group ([ (1,2)(3,7), (2,6,5,4) (3,7) ]), 

Group([ (2,3)(5,7), (1,2) (4,5,6,7) , (2,3)(5,6) ]) ] 
gap> trans := List( has6A, s -> Right Transversal ( a7, s ) );; 
gap> reps:= List( trans, 1 -> Action( a7, 1, OnRight ) ); 
[ Group([ (1,16,12)(2,17,13)(3,18,11)(4,19,14)(15,20,21), 

(1,4, 7, 9, 10) (2, 5, 8, 3, 6) (11,12,15,14,13) (16,20,19,17,18) ]) , 
GroupC (2,16,6) (3,17,7) (4,18,8) (5, 19 , 9) (10,20, 26) (11 ,21 ,27) (12,22 ,28) (13, 
23,29) (14,24,30) (15,25,31) , (1 , 2, 3,4, 5) (6 , 10, 13 , 15, 9) (7 , 11 , 14, 8 , 
12) (16,20,23,25,19) (17,21,24,18,22) (26,32,35,31,28) (27,33,29,34,30) 
]) ] 

gap> g:= DiagonalProductOf PermGroups ( reps );; 
gap> repeat s:= Random( g ); 

> until Order ( s ) = 6; 
gap> NrMovedPoints( s ); 
53 

gap> mpg:= MovedPoints( g );; 

gap> fixs:= Difference( mpg, MovedPoints( s ) );; 
gap> orb_s:= Orbit ( g, fixs, OnSets );; 
gap> Length ( orb_s ) ; 
105 

gap> repeat 3a:= Random( g ); 

> until Order( 3a ) = 3 and Size( Centralizer( g, 3a ) ) = 36; 

gap> orb3a:= Orbit( g, Difference( mpg, MovedPoints( 3a ) ) , OnSets );; 

gap> Length ( orb3a ) ; 

35 

gap> TripleWithProperty ( [ [ orb3a[l] ], orb3a, orb3a ], 

> 1 -> For All ( orb_s, 

> f -> not IsEmpty( Intersection( Union( 1 ) , f ) ) ) ) ; 
[ [ 5, 7, 9, 17, 18, 19, 31, 32, 34, 40, 53 ], 

[ 5, 7, 9, 11, 13, 14, 30, 41, 42, 44, 53 ], 
[ 2, 3, 4, 5, 7, 9, 26, 47, 48, 50, 53 ] ] 

So we have found not only a quadruple but even a triple of 3-cycles that excludes candidates s of 
order six. 



5.5 Lrf(g) 

In the treatment of small dimensional linear groups S — SL(d, g), [BGK) uses a Singer element s of 
order (g'' — l)/(g — 1). (So the order of the corresponding element in PSL(d,g) = (q'^ — l)/[{q — 
1) gcd(d, q — 1)].) By [BerOO) . Ai{S, s) consists of extension field type subgroups, except in the cases 
d — 2, q e {2, 5, 7, 9}, and (rf, q) = (3, 4). These subgroups have the structure GL(d/p, q'^) : aq n S, 
for prime divisors p of d, where Oq denotes the Frobenius automorphism that acts on matrices by 
raising each entry to the q-ih power. (If g is a prime then we have GL(d/p, q'^) : aq = rL(d/p, q^).) 
Since s acts irreducibly, it is contained in at most one conjugate of each class of extension field type 
subgroups (cf. [BGKI Lemma 2.12]). 

First we write a GAP function RelativeSigmaL that takes a positive integer d and a basis B of the 
field extension of degree n over the field with q elements, and returns the group GL(d, q") : aq, as a 
subgroup of GL(dn, g). 

gap> RelativeSigmaL : = function( d, B ) 

> local n, F, q, glgens, diag, pi, frob, i; 

> 
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> n:= LengthC B ) ; 

> F:= Lef tActingDomainC UnderlyingLef tModule ( B ) ); 

> q:= Size( F ) ; 
> 

> # Create the generating matrices inside the linear subgroup. 

> glgens:= List( GeneratorsOf Group ( SL( d, q"n ) ), 

> m -> BlownUpMatC B, m ) ); 
> 

> # Create the matrix of a diagonal part that maps to determinant 1 . 

> diag:= IdentityMatC d*n, F ); 

> diag{ [ 1 . . n ] }{ [ 1 . . n ] }:= BlownUpMatC B, [ [ Z(q-n)-(q-l) ] ] ); 

> Add( glgens, diag ); 
> 

> # Create the matrix that realizes the Frobenius action, 

> # and adjust the determinant . 

> pi:= ListC B, b -> Coef f icientsC B, b~q ) ); 

> frob:= NullMatC d*n, d*n, F ); 

> for i in [ . . d-1 ] do 

> frob{ [1 .. n ] + i*n }{ [1 .. n ] + i*n }:= pi; 

> od; 

> diag:= IdentityMatC d*n, F ); 

> diag{ [ 1 . . n ] }{ [ 1 . . n ] }:= BlownUpMatC B, [ [ ZCq'n) ] ] ); 

> diag:= diag'LogFFEC InverseC DeterminantC frob ) ), DeterminantC diag ) ); 
> 

> # Return the result . 

> return GroupC ConcatenationC glgens, [ diag * frob ] ) ); 



> end; ; 

The next function computes a(SL{d, q), s), by computing the sum of n{g, S/{GL{d/p, q'') : Uq PI 5)), 
for prime divisors p of d, and taking the maximum over g £ . The computations take place in a 
permutation representation of PSL(d, q). 

gap> ApproxPForSL : = functionC d, q ) 



> local G, epi, PG, primes, maixes, names, ccl; 
> 

> # Check whether this is an admissible case Csee [BeOO] ) . 

> if C d = 2 and qin[2,5,7,9])orCd=3 and q = 4 ) then 

> return fail; 

> fi; 
> 

> # Create the group SLCd,q), and the map to PSLCd,q) . 

> G:= SLC d, q ) ; 

> epi:= ActionHomomorphismC G, NormedRowVectors C GFCq)~d ), OnLines ); 

> PG:= ImagesSourceC epi ); 
> 

> # Create the subgroups corresponding to the prime divisors of 'd' . 

> primes := SetC Factors C d ) ); 

> maxes:= ListC primes, p -> RelativeSigmaLC d/p, 

> BasisC AsFieldC GFCq) , GFCq'p) ) ) ) ); 

> names:= ListC primes, p -> ConcatenationC "GLC", StringC d/p ), 

> StringC q*p ), ").", StringC p ) ) ); 

> if 2 < q then 

> names:= ListC names, name -> ConcatenationC name, " cap G" ) ); 

> fi; 
> 
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# Compute the conjugacy classes of prime order elements in the maxes. 

# (In order to avoid computing all conjugacy classes of these subgroups, 

# we work in Sylow subgroups . ) 

ccl:= List( List( maxes, x -> ImagesSet( epi, x ) ), 

M -> ClassesOfPrimeOrderC M, Set( Factors( Size( M ) ) ), 

TrivialSubgroupC M ) ) ); 

return [ names, UpperBoundFixedPointRatios ( PG, ccl, true ) [1] ]; 



end; 



We apply this function to the cases that are interesting in |BGKI Section 5.12], 



gap> pairs : 
> 



[[3,2], [ 3, 3 ] , [ 4, 2 ] , [ 4, 3 ] , [ 4, 4 ] , 



[6,2], [6,3], [6, 
gap> array : = [] ; ; 
gap> for pair in pairs do 



4 ] , [ 6, 5 ] , [ 8, 2 ] , [ 10, 2 ] ] : 



> 


d: = 


pair[l]; q:= pair[2]; 






> 


approx : = 


ApproxPForSL( d, q ) ; 






> 


Add( 


array, [ Concatenation( "SL(", String (d) , 


1 II 


String(q), ")" ) 


> 






(q-d-l)/(q-l). 






> 






approx [1], approx [2] ] ); 






> 


od; 










gap> PrintFormattedArray ( array ) ; 








SL(3,2) 


7 


[ "GL(1,8) 


3" 


] 1/4 




SL(3,3) 


13 


[ "GL(1,27) .3 cap 


G" 


] 1/24 




SL(4,2) 


15 


[ "GL(2,4) 


2" 


] 3/14 




SL(4,3) 


40 


[ "GL(2,9) .2 cap 


G" 


] 53/1053 




SL(4,4) 


85 


[ "GL(2,16) .2 cap 


G" 


] 1/108 




SL(6,2) 


63 


[ "GL(3,4) .2" , "GL(2,8) 


3" 


] 365/55552 




SL(6,3) 


364 


[ "GL(3,9).2 cap G" , "GL(2,27).3 cap 


G" 


] 22843/123845436 




SL(6,4) 


1365 


[ "GL(3,16).2 cap G" , "GL(2,64).3 cap 


G" 


] 1/85932 




SL(6,5) 


3906 


[ "GL(3,25).2 cap G" , "GL(2,125).3 cap 


G" 


] 1/484220 




SL(8,2) 


255 


[ "GL(4,4) 


2" 


] 1/7874 




SL(10,2) 


1023 


[ "GL(5,4) .2", "GL(2,32) 


5" 


] 1/129794 



The only m issing case for [BGK) is S = La (4), for which A4{S, s) consists of three groups of the type 
L3(2) (see |CCN+85l p. 23]). The group Ls (4) has been considered already in Section 14.31 where 
a{S, s) = 1/5 has been proved. Also the cases SL(3, 3), SL(4, 2) = As, and SL(4, 3) have been handled 
there. 

An alternative character-theoretic proof for S — Lq{2) looks as follows. In this case, the subgroups 
in M{S,s) have the types rL(3,4) ^ GL(3,4).2 ^ 3.L3(4).3.22 and rL(2,8) ^ GL(2,8).3 {7 x 
L2(8)).3. 

gap> t:= CharacterTableC "L6(2)" );; 

gap> sl:= CharacterTableC "3.L3(4) .3.2_2" );; 

gap> s2:= CharacterTableC " (7xL2(8) ) . 3" );; 

gap> SigmaFromMaxesC t, "63A", [ si , s2 ] , [ 1 , 1 ] ) ; 

365/55552 



5.6 * Ld{q) with prime d 

For S = SL(d, g) with prime dimension d, and s G S a Singer cycle, we have M{S, s) = {M}, where 
M = Ns{{s)) ?^rL{l,q'^) n S. So 

a{g,s) = M(5,S/Af) = Ig"" n A/|/|/| < |M|/|/| < {q" - 1) • 
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holds for any g G S \ Z{S), which imphes a{S, s) < max{(g'* - 1) • d/\g^\;g e S\ Z{S)}. The right 
hand side of this inequality is returned by the following function. In [BGKI Lemma 3.8], the global 
upper bound l/q"^ is derived for primes d > 5. 

gap> UpperBoundForSL : = function( d, q ) 



> local G, Msize, ccl; 
> 

> if not IsPrimeInt ( d ) then 

> Error ( "<d> must be a prime" ); 

> fi; 
> 

> G:= SL( d, q ) ; 

> Msize:= (q'd-1) * d; 

> ccl:= FilteredC ConjugacyClasses ( G ), 

> c -> Msize mod Order ( Representative ( c ) ) = 

> and Size( c ) <> 1 ) ; 
> 

> return Msize / Minimum( List( ccl, Size ) ); 



> end; ; 

The interesting values are {d,q) with d G {5,7,11} and q G {2,3,4}, and perhaps also {d,q) G 
{(3, 2), (3, 3)}. (Here we exclude SL(11, 4) because writing down the conjugacy classes of this group 
would exceed the permitted memory.) 

gap> NrConjugacyClasses ( SL(11,4) ); 
1397660 

gap> pairs:= [ [ 3, 2 ], [ 3, 3 ] , [ 5, 2 ] , [ 5, 3 ] , [ 5, 4 ] , 

> [ 7, 2 ] , [ 7, 3 ] , [ 7, 4 ] , 

> [ 11, 2 ] , [ 11, 3 ] ] ; ; 
gap> array : = [] ; ; 

gap> for pair in pairs do 

> d:= pair[l]; q:= pair [2]; 

> approx:= UpperBoundForSL ( d, q ); 

> Add( array, [ Concatenation( "SL(", String (d) , String (q) , ")" ), 

> (q-d-l)/(q-l), 

> approx ] ) ; 

> od; 

gap> PrintFormattedArray ( array ) ; 



SL(3,2) 


7 


7/8 


SL(3,3) 


13 


3/4 


SL(5,2) 


31 


31/64512 


SL(5,3) 


121 


10/81 


SL(5,4) 


341 


15/256 


SL(7,2) 


127 


7/9142272 


SL(7,3) 


1093 


14/729 


SL(7,4) 


5461 


21/4096 


SL(11,2) 


2047 


2047/34112245508649716682268134604800 


SL(11,3) 


88573 


22/59049 



The exact values are clearly better than the above bounds. We compute them for 1/5(2) and 1/7(2). 
In the latter case, the class fusion of the 127 : 7 type subgroup M is not uniquely determined by 
the character tables; here we use the additional information that the elements of order 7 in M have 
centralizer order 49 in 1/7(2). (See Section [4.31 for the examples with d = 3.) 

gap> SigmaFromMaxesC CharacterTable( "L5(2)" ), "31A", 
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> [ CharacterTableC "31:5" )],[!]); 
1/5376 

gap> t:= CharacterTableC "L7(2)" );; 

gap> s:= CharacterTableC "P:Q", [ 127, 7 ] );; 

gap> pi:= PossiblePermutationCharacters ( s, t );; 

gap> Length ( pi ) ; 

2 

gap> ord7:= PositionsProperty ( OrdersClassRepresentatives ( t),x->x=7); 
[ 38, 45, 76, 77, 83 ] 

gap> sizes := SizesCentralizers ( t ){ ord7 }; 

[ 141120, 141120, 3528, 3528, 49 ] 
gap> List( pi, X -> x[83] ); 

[ 42, ] 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 127 );; 

gap> MaximumC ApproxP( pi{ [ 1 ] }, spos ) ); 

1/4388290560 

5.7 Automorphic Extensions of Ld{q) 

For the following values of d and q, automorphic extensions G of Ld{q) had to be checked for [BGKI 
Section 5.12]. 

(d, q) G {(3, 4), (6, 2), (6, 3), (6, 4), (6, 5), (10, 2)} 

The first case has been treated in Section [4.41 For the other cases, we compute ct'{G, s) below. 

In any case, the extension by a graph automorphism occurs, which can be described by mapping each 
matrix in SL(ci, q) to its inverse transpose. If q > 2, also extensions by diagonal automorphisms occur, 
which are induced by conjugation with elements in GL(d, g). If q is nonprime then also extensions 
by field automorphisms occur, which can be described by powering the matrix entries by roots of q. 
Finally, products (of prime order) of these three kinds of automorphisms have to be considered. 

We start with the extension G of S = SL(d, q) by a graph automorphism. G can be embedded into 
GL(2ci, q) by representing the matrix A £ S as a, block diagonal matrix with diagonal blocks equal to 
A and A~^^ , and representing the graph automorphism by a permutation matrix that interchanges 
the two blocks. In order to construct the field extension type subgroups of G, we have to choose the 
basis of the field extension in such a way that the subgroup is normalized by the permutation matrix; 
a sufficient condition is that the matrices of the Fg-linear mappings induced by the basis elements 
are symmetric. 

(We do not give a function that computes a basis with this property from the parameters d and q. 
Instead, we only write down the bases that we will need.) 

gap> SymmetricBasis : = functionC q, n ) 

> local vectors, B, issymmetric ; 
> 

> if q = 2 and n = 2 then 

> vectors:= [ Z(2)~0, Z(2~2) ]; 

> elif q = 2 and n = 3 then 

> vectors:= [ Z(2)-0, Z(2-3), Z(2~3)-5 ]; 

> elif q = 2 and n = 5 then 

> vectors:= [ Z(2)-0, Z(2~5), Z(2~5)~4, Z(2~5)-25, Z(2-5)~26 ]; 

> elif q = 3 and n = 2 then 

> vectors:= [ Z(3)~0, Z(3~2) ]; 

> elif q = 3 and n = 3 then 

> vectors:= [ Z(3)-0, Z(3-3)-2, Z(3'3)-7 ]; 

> elif q = 4 and n = 2 then 
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> vectors := [ Z(2)~0, Z(2~4)~3 ]; 

> elif q = 4 and n = 3 then 

> vectors:= [ Z{2)'0, Z{2~3) , Z(2"3)~5 ]; 

> elif q = 5 and n = 2 then 

> vectors:= [ Z(5)*0, Z(5'2)*2 ]; 

> elif q = 5 and n = 3 then 

> vectors:= [ Z(5)-0, Z(5-3)-9, Z(5-3)-27 ]; 

> else 

> ErrorC "sorry, no basis for <q> and <n> stored" ); 

> fi; 
> 

> B:= BasisC AsFieldC GF(q), GF(q~n) ), vectors ); 
> 

> # Check that the basis really has the required property. 

> issymmetric : = M -> M = TransposedMat ( M ); 

> if not ForAlK B, b -> issymmetric ( BlownUpMatC B, [[b]]))) then 

> ErrorC "wrong basis!" ); 

> fi; 
> 

> # Return the result . 

> return B; 

> end; ; 

In later examples, we will need similar embeddings of matrices. Therefore, we provide a more general 
function EmbeddedMatrix that takes a matrix mat and a function func, and returns a block diagonal 
matrix whose diagonal blocks are mat and func ( mat ) . 

gap> BindGlobaK "EmbeddedMatrix", functionC mat, func ) 

> local d, result; 
> 

> d:= LengthC mat ); 

> result:= NullMatC 2*d, 2*d, Zero( mat [1] [1] ) ); 

> result{ [1 .. d] >{ [1 .. d] >:= mat; 

> result{ [ d+1 . . 2*d ] >{ [ d+1 . . 2*d ] > : = func ( mat ) ; 
> 

> return result; 

> end ) ; 

The following function is similar to ApproxPForSL, the differences are that the group G in question is 
not SL(d, q) but the extension of this group by a graph automorphism, and that a'(G, s) is computed 
not cr(G, s). 

gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut : = functionC d, q ) 

> local embedG, swap, G, orb, epi, PG, Gprime, primes, maxes, ccl, names; 
> 

> # Check whether this is an admissible case Csee [BeOO] , 

> # note that a graph automorphism exists only for 'd > 2'). 

> ifd=2orCd=3 and q = 4 ) then 

> return fail; 

> fi; 
> 

> # Provide a function that constructs a block diagonal matrix. 

> embedG:= mat -> EmbeddedMatrix C mat, M -> TransposedMat C M*-l ) ); 
> 

> # Create the matrix that exchanges the two blocks. 
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> swap:= NullMatC 2*d, 2*d, GF(q) ); 

> swap{ [ 1 . . d ] >{ [ d+1 . . 2*d ] }:= IdentityMatC d, GF(q) ); 

> swap{ [ d+1 . . 2*d ] [ 1 . . d ] }:= IdentityMatC d, GF(q) ); 
> 

> # Create the group SL(d,q).2, and the map to the projective group. 

> G:= ClosureGroupDefaultC GroupC ListC GeneratorsOf Group ( SL( d, q ) ), 

> embedG ) ) , 

> swap ) ; 

> orb:= OrbitC G, One( G ) [1] , OnLines ); 

> epi:= ActionHomomorphismC G, orb, OnLines ); 

> PG : = ImagesSource ( epi ) ; 

> Gprime:= DerivedSubgroup ( PG ); 
> 

> # Create the subgroups corresponding to the prime divisors of 'd' . 

> primes := Set( Factors ( d ) ); 

> maxes:= List( primes, 

> P ClosureGroupDefaultC GroupC ListC GeneratorsOf GroupC 

> RelativeSigmaLC d/p, SymmetricBasisC q, P ) ) ), 

> embedG ) ) , 

> swap ) ) ; 
> 

> # Compute conjugacy classes of outer involutions in the maxes. 

> # (In order to avoid computing all conjugacy classes of these subgroups, 

> # we work in the Sylow $2$ subgroups.) 

> meixes : = List ( maxes , M -> ImagesSet C epi , M ) ) ; 

> ccl:= ListC mcLxes, M -> ClassesOfPrimeOrder C M, [ 2 ], Gprime ) ); 

> names:= ListC primes, p -> ConcatenationC "GL(", StringC d/p ), 

> StringC q-p ), ").", StringC p ) ) ); 
> 

> return [ names, UpperBoimdFixedPointRatiosC PG, ccl, true ) [1] ]; 

> end; ; 

And these are the results for the groups we are interested in (and others). 

gap> ApproxPForOuterClassesInExtensionOfSLByGraphAutC 4, 3 ); 
[ [ "GLC2,9) .2" ] , 17/117 ] 

gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut C 4, 4 ); 
[ [ "GL(2,16) .2" ] , 73/1008 ] 

gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut C 6, 2 ); 
[ [ "GL(3,4).2", "GL(2,8).3" ], 41/1984 ] 

gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut C 6, 3 ); 
[ [ "GL(3,9).2", "GL(2,27).3" ], 541/352836 ] 

gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut C 6, 4 ); 

[ [ "GLC3,16) .2", "GLC2,64).3" ], 3265/12570624 ] 
gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut C 6, 5 ); 

[ [ "GL(3,25) .2", "GL(2,125) .3" ], 13001/195250000 ] 
gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut C 8, 2 ); 

[ [ "GLC4,4).2" ], 367/1007872 ] 

gap> ApproxPForOuterClassesInExtensionOf SLByGraphAut ( 10, 2 ); 
[ [ "GLC5,4).2", "GLC2,32).5" ], 609281/476346056704 ] 

Now we consider diagonal automorphisms. We modify the approach for SL(d, q) by constructing the 
field extension type subgroups of GL(d, q) ■ ■ ■ 

gap> RelativeGammeiL:= functionC d, B ) 
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> local n, F, q, diag; 
> 

> n:= LengthC B ) ; 

> F:= Lef tActingDomainC UnderlyingLef tModule ( B ) ); 

> q:= Size( F ) ; 

> diag:= IdentityMat( d * n, F ); 

> diag{[ 1 . . n ]}{[ 1 . . n ]}:= BlownUpMat ( B, [ [ Z(q-n) ] ] ); 

> return ClosureGroup( RelativeSigmaL( d, B ) , diag ) ; 

> end; ; 

. . . and counting the elements of prime order outside the simple group. 

gap> ApproxPForOuterClassesInGL:= fimction( d, q ) 

> local G, epi, PG, Gprime, primes, maxes, names; 
> 

> # Check whether this is an admissible case (see [BeOO] ) . 

> if ( d = 2 and q in [ 2, 5, 7, 9 ] ) or ( d = 3 and q = 4 ) then 

> return fail; 

> fi; 
> 

> # Create the group GL(d,q), and the map to PGL(d,q) . 

> G:= GL( d, q ) ; 

> epi:= ActionHomomorphismC G, NormedRowVectors ( GF(q)~d ), OnLines ); 

> PG:= ImagesSourceC epi ); 

> Gprime:= ImagesSetC epi, SL( d, q ) ); 
> 

> # Create the subgroups corresponding to the prime divisors of 'd' . 

> primes := Set( Factors ( d ) ); 

> maxes := List( primes, p -> RelativeGammaL( d/p, 

> BasisC AsFieldC GF(q) , GF(q-p) ) ) ) ); 

> maxes : = List ( maxes , M -> ImagesSet ( epi , M ) ) ; 

> names:= List( primes, p -> Concatenation( "M(", StringC d/p ), 

> StringC q-p ), ")" ) ); 
> 

> return [ names, 

> UpperBoundFixedPointRatios ( PG, List( maxes, 

> M -> ClassesOfPrimeOrderC M, 

> Set( Factors ( Index ( PG, Gprime ) ) ), Gprime ) ), 

> true ) [1] ] ; 

> end; ; 



Here are the required results. 

gap> ApproxPForOuterClassesInGLC 6, 3 ); 
[ [ "M(3,9)", "M(2,27)" ], 41/882090 ] 
gap> ApproxPForOuterClassesInGLC 4, 3 ); 

[ [ "M(2,9)" ] , ] 

gap> ApproxPForOuterClassesInGLC 6, 4 ); 

[ [ "MC3,16)", "MC2,64)" ], 1/87296 ] 
gap> ApproxPForOuterClassesInGLC 6, 5 ); 

[ [ "MC3,25)", "MC2,125)" ], 821563/756593750000 ] 

(Note that the extension field type subgroup in PGL(4, 3) = -L4(3).2i is a non-split extension of its 
intersection with 1/4(3), hence the zero value.) 
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Concerning extensions by Frobenius automorphisms, only the case (d, q) — (6, 4) is interesting 
in BGK . In fact, we would not need to compute anything for the extension G of 5 = SL(6, 4) 
by the Frobenius map that squares each matrix entry. This is because M'{G, s) consists of the nor- 
malizers of the two subgroups of the types SL(3, 16) and SL(2, 64), and the former maximal subgroup 
is a non-spht extension of its intersection with S, so only one maximal subgroup can contribute to 
a'{G,s), which is thus smaller than 1/2, by [BGKI Prop. 2.6]. 

However, it is easy enough to compute the exact value of a'{G,s). We work with the projective 
action of 5* on its natural module, and compute the permutation induced by the Frobenius map as 
the Frobenius action on the normed row vectors. 

gap> matgrp:= SL(6,4);; 

gap> dom:= NormedRowVectors ( GF(4)~6 );; 

gap> Gprime:= Action( matgrp, dom, OnLines );; 

gap> pi:= PermListC List( dom, v -> Position( dom, List( v, x -> x~2 ) ) ) );; 
gap> G:= ClosureGroupC Gprime, pi ) ; ; 

Then we compute the maximal subgroups, the classes of outer involutions, and the bound, similar to 
the situation with graph automorphisms. 

gap> maxes:= List( [2, 3 ], p -> Normalizer( G, 

> ActionC RelativeSigmaL( 6/p, 

> BasisC AsFieldC GF(4) , GF(4~p) ) ) ), dom, OnLines ) ) );; 
gap> ccl:= List( maxes, M -> ClassesOfPrimeOrder ( M, [ 2 ], Gprime ) );; 
gap> List( ccl. Length ); 

[ 0, 1 ] 

gap> UpperBomidFixedPointRatios ( G, ccl, true ); 
[ 1/34467840, true ] 

For {d,q) = (6,4), we have to consider also the extension G oi S = SL(6, 4) by the product a 
of the Frobenius map and the graph automorphism. We use the same approach as for the graph 
automorphism, i. e., we embed SL(6, 4) into a 12-dimensional group of 6 x 6 block matrices, where 
the second block is the image of the first block under a, and describe a by the transposition of the 
two blocks. 

First we construct the projective actions of S and G on an orbit of 1-spaces. 

gap> embedFG:= mat -> EmbeddedMatrix ( mat, M -> List( TransposedMat ( M~-l ), 

> row -> List( row, x -> x~2 ) ) );; 
gap> d:= 6; ; q:= 4; ; 

gap> alpha:= NullMatC 2*d, 2*d, GF(q) );; 

gap> alpha{ [ 1 . . d ] }{ [ d+1 . . 2*d ] > : = IdentityMatC d, GF(q) );; 

gap> alpha{ [ d+1 . . 2*d ] [ 1 . . d ] > : = IdentityMatC d, GF(q) );; 

gap> Gprime:= GroupC List( GeneratorsQf Group ( SL(d,q) ), embedFG ) );; 

gap> G:= ClosureGroupDef ault ( Gprime, alpha );; 

gap> orb:= Orbit ( G, One( G ) [1] , OnLines );; 

gap> G:= ActionC G, orb, OnLines );; 

gap> Gprime:= ActionC Gprime, orb, OnLines );; 

Next we construct the maximal subgroups, the classes of outer involutions, and the bound. 

gap> maxes := ListC Set C Factors C d ) ), p -> GroupC ListC GeneratorsOf GroupC 

> RelativeSigmaLC d/p, BasisC AsFieldC GFCq) , GFCq'p) ) ) ) ), 

> embedFG ) ) ) ; ; 

gap> maxes:= ListC maxes, x -> ActionC x, orb, OnLines ) );; 
gap> maxes := ListC maxes, x -> NormalizerC G, x ) );; 

gap> ccl:= ListC maxes, M -> ClassesOfPrimeOrder C M, [ 2 ], Gprime ) );; 
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gap> List( ccl. Length ); 
[ 0, 1 ] 

gap> UpperBoundFixedPointRatios ( G, ccl, true ); 
[ 1/10792960, true ] 

The only missing cases are the extensions of SL(6, 3) and SL(6, 5) by the involutory outer automor- 
phism that acts as the product of a diagonal and a graph automorphism. 

In the case S — SL(6, 3), we can directly write down the extension G. 

gap> d:= 6;; q:= 3;; 

gap> diag:= IdentityMatC d, GF(q) );; 

gap> diag[l] [1] := Z(q) ; ; 

gap> embedDG:= mat -> EmbeddedMatrixC mat, M -> TransposedMat ( M"-l )~diag );; 
gap> Gprime:= Group( List( Generator sOf Group ( SL(d,q) ), embedDG ) );; 
gap> alpha:= NullMatC 2*d, 2*d, GF(q) );; 

gap> alpha{ [ 1 . . d ] }{ [ d+1 . . 2*d ] }:= IdentityMatC d, GF(q) );; 
gap> alpha-C [d+1 .. 2*d ] H [1 •• d ] }:= IdentityMatC d, GFCq) );; 
gap> G:= ClosureGroupDef aultC Gprime, alpha );; 

The maximal subgroups are constructed as the normalizers in G of the extension field type subgroups 
in S. We work with a permutation representation of G. 

gap> maxes:= ListC SetC FactorsC d ) ) , p -> GroupC ListC GeneratorsOf Group C 

> RelativeSigmaLC d/p, BasisC AsFieldC GFCq), GFCq'p) ) ) ) ), 

> embedDG ) ) ) ; ; 

gap> orb:= Orbit ( G, OneC G ) [1] , OnLines );; 

gap> G:= ActionC G, orb, OnLines );; 

gap> Gprime:= ActionC Gprime, orb, OnLines );; 

gap> maxes:= ListC maxes, M -> NormalizerC G, ActionC M, orb, OnLines ) ) );; 
gap> ccl:= ListC maxes, M -> ClassesOf PrimeOrder C M, [ 2 ], Gprime ) );; 
gap> ListC ccl, Length ); 
[ 1, 1 ] 

gap> UpperBoundFixedPointRatios C G, ccl, true ); 
[ 25/352836, true ] 

For S = SL(6, 5), this approach does not work because we cannot realize the diagonal involution by 
an involutory matrix. Instead, we consider the extension of GL(6, 5) = 2.(2 x L6(5)).2 by the graph 
automorphism a, which can be embedded into GL(12, 5). 

gap> d:= 6; ; q:= 5; ; 

gap> embedG:= mat -> EmbeddedMatrixC mat, M -> TrcinsposedMatC M*-l ) );; 

gap> Gprime := GroupC ListC GeneratorsOf GroupC SLCd.q) ), embedG ) );; 

gap> maxes := ListC Set( FactorsC d ) ), p -> GroupC ListC GeneratorsOf GroupC 

> RelativeSigmaLC d/p, BasisC AsFieldC GFCq), GFCq'p) ) ) ) ), 

> embedG ) ) ) ; ; 

gap> diag:= IdentityMatC d, GFCq) );; 

gap> diag[l] [1] := ZCq);; 

gap> diag:= embedG C diag );; 

gap> alpha:= NullMatC 2*d, 2*d, GFCq) );; 

gap> alpha-[ [ 1 . . d ] }{ [ d+1 .. 2*d ] }:= IdentityMatC d, GFCq) );; 
gap> alpha{ [ d+1 . . 2*d ] [ 1 . . d ] > : = IdentityMatC d, GFCq) );; 
gap> G:= ClosureGroupDef ault C Gprime, alpha * diag );; 

Now we switch to the permutation action of this group on the 1-dimensional subspaces, thus factoring 
out the cyclic normal subgroup of order four. In this action, the involutory diagonal automorphism 
is represented by an involution, and we can proceed as above. 
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gap> orb:= Orbit ( G, One( G ) [1] , OnLines );; 
gap> Gprime:= Action( Gprime, orb, OnLines );; 
gap> G:= ActionC G, orb, OnLines );; 

gap> maxes:= List( maxes, M -> ActionC M, orb, OnLines ) );; 
gap> extmaxes:= List( maxes, M -> NormalizerC G, M ) );; 

gap> ccl:= ListC extmaxes, M -> ClassesOfPrimeOrder ( M, [ 2 ], Gprime ) );; 
gap> List( ccl. Length ); 
[ 2, 1 ] 

gap> UpperBoundFixedPointRatios ( G, ccl, true ); 
[ 3863/6052750000, true ] 

In the same way, we can recheck the values for the extensions of SL(6, 5) by the diagonal or by the 
graph automorphism. 



gap> diag:= PermutationC diag, orb, OnLines );; 

gap> G:= ClosureGroupDef ault ( Gprime, diag );; 

gap> extmaxes := List( maxes, M -> NormalizerC G, M ) );: 

gap> ccl:= List( extmaxes, M -> ClassesOfPrimeOrder ( M, 

gap> List( ccl. Length ); 

[ 3, 1 ] 

gap> UpperBoundFixedPointRatios ( G, ccl, true ); 
[ 821563/756593750000, true ] 

gap> alpha:= PermutationC alpha, orb, OnLines );; 

gap> G:= ClosureGroupDef ault ( Gprime, alpha );; 

gap> extmaxes := List( maxes, M -> NormalizerC G, M ) );: 

gap> ccl:= List( extmaxes, M -> ClassesOfPrimeOrder ( M, 

gap> List( ccl. Length ); 

[ 2, 2 ] 

gap> UpperBoundFixedPointRatios ( G, ccl, true ); 
[ 13001/195250000, true ] 



[ 2 ] , Gprime ) ) ; 



[ 2 ] , Gprime ) ) ; ; 



5.8 L3(2) 

We show that S — Ls(2) = SL(3, 2) satisfies the following. 

(a) (j{S) — 1/4, and this value is attained exactly for a{S,s) with s of order 7. 

(b) For s of order 7, M{S, s) consists of one group of the type 7 : 3. 

(c) P{S) = 1/4, and this value is attained exactly for P{S, s) with s of order 7. 

(d) The uniform spread of S is at exactly three, with s of order 7, and the spread of S is exactly 
four. (This had been left open in [BW75] .') 

(Note that in this example, the spread and the uniform spread differ.) 

Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTable( "L3(2)" );; 

gap> ProbGenInf oSimpleC t ); 

[ "L3(2)", 1/4, 3, [ "7A" ] , [ 1 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the unique class 
of maximal su bgroups that contain elements of order 7 consists of groups of the structure 7 : 3, 
see [CCN+851 p. 3]. 



62 



gap> OrdersClassRepresentativesC t ); 
[ 1, 2, 3, 4, 7, 7 ] 

gap> PrimitivePermutationCharacters ( t ); 

[ CharacterC CharacterTable ( "L3(2)" ) , [ 7, 3, 1 , 1 , , ] ) , 
Character ( CharacterTable ( "L3(2)" ), [7, 3, 1, 1, 0, 0] ), 
CharacterC CharacterTable ( "L3(2)" ), [ 8, 0, 2, 0, 1, 1 ] ) ] 

For the other statements, we will use the primitive permutation representations on 7 and 8 points of 
S (computed from the GAP Library of Tables of Marks), and their diagonal products of the degrees 
14 and 15. 

gap> toin:= TableOf Marks ( "L3(2)" );; 
gap> g:= UnderlyingGroup ( torn ); 
Group([ (2,4)(5,7), (1,2,3) (4,5,6) ]) 
gap> mx:= MaximalSubgr oupsTom ( torn ); 
[ [ 14, 13, 12 ], [ 7, 7, 8 ] ] 

gap> maxes:= List( mx[l], i -> RepreseiitativeTom( torn, i ) );; 
gap> tr:= List( maxes, s -> Right Transversal ( g, s ) );; 
gap> acts:= List( tr, x -> ActionC g, x, OnRight ) );; 
gap> g7:= acts[l] ; 

Group([ (3,4)(6,7), (1,3,2) (4,6,5) ]) 
gap> g8:= acts [3] ; 

Group([ (1,6) (2,5) (3,8) (4,7) , (1,7,3) (2,5,8) ]) 
gap> gl4:= DiagonalProductOf PermGroups ( acts{ [1, 2 ] } ); 
Group([ (3,4)(6.7)(11.13)(12,14), (1 ,3,2) (4,6,5) (8, 11 .9) (10, 12, 13) ]) 
gap> gl5:= DiagonalProductOf PermGroups ( acts{ [2, 3 ] } ); 
Group ([ (4,6) (5,7) (8,13) (9,12) (10,15) (11,14) , 
(1,4. 2) (3, 5, 6) (8, 14, 10) (9, 12, 15) ]) 

First we compute that for all nonidentity elements s £ S and order three elements g £ S, P{g, s) > 1/4 
holds, with equality if and only if s has order 7; this implies statement (c). We actually compute, for 
class representatives s, the proportion of order three elements g such that {g, s) ^ S holds. 

gap> ccl:= List( ConjugacyClasses ( g7 ), Representative );; 
gap> SortParallel ( List( ccl, Order ), ccl ); 
gap> List( ccl. Order ); 
[ 1, 2, 3, 4, 7, 7 ] 

gap> Size( ConjugacyClass( g7, ccl [3] ) ); 
56 

gap> prop:= List( ccl, 

> r -> RatioOfNongenerationTransPermGroup( g7, ccl [3], r ) ); 

[ 1, 5/7, 19/28, 2/7, 1/4, 1/4 ] 

gap> Minimum ( prop ) ; 

1/4 

Now we show that the uniform spread of S is less than four. In any of the primitive permutation 

representations of degree seven, wo find three involutions whose sets of fixed points cover the seven 
points. The elements s of order different from 7 in 5* fix a point in this representation, so each such 
s generates a proper subgroup of S together with one of the three involutions. 

gap> x:= g7.1; 
(3,4) (6,7) 

gap> fix:= Difference( MovedPoints( g7 ), MovedPoints( x ) ); 
[ 1, 2, 5 ] 

gap> orb:= OrbitC g7, fix, OnSets ); 
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[ [ 1, 2, 5 ], [ 1, 3, 4 ], [ 2, 3, 6 ], [ 2, 4, 7 ] , [ 1, 6. 7 1, 

[ 3, 5, 7 ] , [ 4, 5, 6 ] ] 
gap> UnionC orb{ [1, 2, 5]>)=[1..7]; 
true 

So we still have to exclude elements s of order 7. In the primitive permutation representation of S on 
eight points, we find four elements of order three whose sets of fixed points cover the set of all points 
that are moved by S, so with each element of order seven in S, one of them generates an intransitive 
group. 

gap> three := g8.2; 
(1,7,3)(2,5,8) 

gap> fix:= DifferenceC MovedPoints ( g8 ), MovedPointsC three ) ); 

[ 4, 6 ] 

gap> orb:= Orbit( gS, fix, OnSets );; 

gap> QuadrupleWithProperty ( [ [ f ix ] , orb, orb, orb ], 

> list -> UnionC list ) = [ 1 .. 8 ] ); 
[ [ 4, 6 ] , [1,7], [ 3, 8 ] , [ 2, 5 ] ] 

Together with statement (a), this proves that the uniform spread of S is exactly three, with s of order 
seven. 

Each clement of S fixes a point in the permutation representation on 15 points. So for proving that 
the spread of S is less than five, it is sufficient to find a quintuple of elements whose sets of fixed 
points cover all 15 points. (Prom the permutation characters it is clear that four of these elements 
must have order three, and the fifth must be an involution.) 

gap> x:= gl5.1; 

(4,6) (5,7) (8,13) (9,12) (10,15) (11,14) 

gap> fixx:= DifferenceC MovedPointsC gl5 ), MovedPointsC x ) ); 
[ 1, 2, 3 ] 

gap> orbx:= OrbitC gl5, fixx, OnSets ); 

[ [ 1, 2, 3 ], [ 1, 4, 5 ], [ 1, 6, 7 ], [ 2, 4, 6 ] , [ 3, 4, 7 ], 

[ 3, 5, 6 ] , [ 2, 5, 7 ] ] 
gap> y:= gl5.2; 

Cl, 4, 2) (3,5,6) (8,14,10) (9,12,15) 

gap> fixy:= Difference( MovedPoints( gl5 ), MovedPoints( y ) ); 
[ 7, 11, 13 ] 

gap> orby:= Orbit( gl5, fixy, OnSets );; 

gap> QuadrupleWithProperty ( [ [ fixy ] , orby, orby, orby ] , 

> 1 -> Difference( [1 .. 15 ] , Union( 1 ) ) in orbx ); 
[ [ 7, 11, 13 ], [ 5, 8, 14 ], [ 1, 10, 15 ], [ 3, 9, 12 ] ] 

It remains to show that the spread of S is (at least) four. By the consideration of permutation 
characters, we know that we can find a suitable order seven element for all quadruples in question 

except perhaps quadruples of order three elements. We show that for each such case, we can choose s 
of order four. Since M{S, s) consists of two subgroups of the type 5*4, we work with the representation 
on 14 points.) 

First we compute s and the S-orbit of its fixed points, and the S-orbit of the fixed points of an 
element x of order three. Then we prove that for each quadruple of conjugates of x, the union of 
their fixed points intersects the fixed points of at least one conjugate of s trivially. 

gap> ResetGlobalRandomNumberGeneratorsC) ; 

gap> repeat s:= Random C gl4 ); 

> until OrderC s ) = 4; 



64 



gap> s; 

(2,3,5,4) (6,7) (8,9) (11,12,14,13) 

gap> fixs:= Difference( MovedPoints( gl4 ), MovedPoints( s ) ); 
[1, 10 ] 

gap> orbs:= Orbit ( gl4, fixs, OnSets );; 

gap> Length ( orbs ) ; 

21 

gap> three := gl4.2; 

(1,3,2) (4,6,5) (8,11,9) (10,12,13) 

gap> fix:= Difference( MovedPoints( gl4 ), MovedPoints( three ) ); 
[ 7, 14 ] 

gap> orb:= Orbit ( gl4, fix, OnSets );; 

gap> Length ( orb ) ; 

28 

gap> QuadrupleWithProperty ( [ [ f ix ] , orb, orb, orb ] , 

> 1 -> ForAlK orbs, o -> not IsEmpty( Intersection( o, 

> Union( 1 ) ) ) ) ); 
fail 

By Lemma |2. II we are done. 

5.9 Mil 

We show that S — Mu satisfies the following. 

(a) (7{S) — 1/3, and this value is attained exactly for a{S,s) with s of order 11. 

(b) For s of order 11, M{S, s) consists of one group of the type L2(ll). 

(c) P{S) = 1/3, and this value is attained exactly for P{S, s) with s of order 11. 

(d) Both the uniform spread and the spread of S is exactly three, with s of order 11. 

Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4. II 

gap> t:= CharacterTable( "Mil" );; 

gap> ProbGenInf oSimple( t ); 

[ "Mil" , 1/3, 2, [ "llA" ] , [ 1 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the unique class 
of maximal su bgroups that contain elements of order 11 consists of groups of the structure L2(ll), 
see [CCN+851 p. 18]. 

gap> DrdersClassRepresentatives ( t ); 

[ 1, 2, 3, 4, 5, 6, 8, 8, 11, 11 ] 

gap> PrimitivePermutationCharacters ( t ); 

[ Character( CharacterTable ( "Mil" ), [11, 3, 2, 3, 1, 0, 1, 1, 0, ] ), 
Character( CharacterTable ( "Mil" ), [12, 4, 3, 0, 2, 1, 0, 0, 1, 1 ] ), 
Character( CharacterTable ( "Mil" ), [55, 7, 1, 3, 0, 1, 1, 1, 0, ] ), 
Character( CharacterTable ( "Mil" ), [66, 10, 3, 2, 1, 1, 0, 0, 0, ] ), 
Character( CharacterTable ( "Mil" ), [ 165, 13, 3, 1, 0, 1, 1, 1, 0, ] ) ] 

gap> Maxes ( t ) ; 

[ "A6.2_3", "L2(ll)", "3-2:Q8.2", "A5.2", "2. 34" ] 

For the other statements, we will use the primitive permutation representations of 5 on 11 and 
12 points (which are fetched from the ATLAS of Group Representations fWilj ). and their diagonal 
product. 
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gap> gensll:= OneAtlasGeneratingSet ( "Mil", NrMovedPoints , 11 ); 
rec( generators := [ (2 , 10) (4, 11) (5 ,7) (8, 9) , (1 ,4,3 ,8) (2 , 5 , 6 , 9) ], 
groupname := "Mil", standardization := 1, repnr := 1, 

identifier := [ "Mil", [ "MllGl-pllBO .ml" , "MllGl-pllBO .m2" ], 1, 11 ] , 

p := 11, id := "", size := 7920 ) 
gap> gll:= GroupWithGeneratorsC gensll .generators );; 
gap> gensl2:= OneAtlasGeneratingSet ( "Mil", NrMovedPoints, 12 ) ; ; 
gap> gl2:= GroupWithGeneratorsC gens 12. generators );; 
gap> g23:= DiagonalProductOf PermGroups ( [ gll, gl2 ] ); 
Group ( [ (2,10) (4,11) (5,7) (8,9) (12,17) (13 ,20) (16 , 18) (19,21) , 

(1,4,3,8) (2,5,6,9) (12,17,18,15) (13,19) (14,20) (16,22,23,21) ]) 

First we compute that for all nonidentity elements s G S and involutions g £ S, P{g, s) > 1/3 holds, 
with equality if and only if s has order 11; this implies statement (c). We actually compute, for class 
representatives s, the proportion of involutions g such that {g, s) S holds. 

gap> inv: = gll . 1 ; 
(2,10)(4,11)(5,7)(8,9) 

gap> ccl:= List( ConjugacyClasses ( gll ), Representative );; 

gap> SortParallel ( List( ccl, Order ), ccl ); 

gap> List( ccl. Order ); 

[ 1, 2, 3, 4, 5, 6, 8, 8, 11, 11 ] 

gap> Size( ConjugacyClass ( gll, inv ) ); 

165 

gap> prop:= List( ccl, 

> r -> RatioOf NongenerationTransPermGroup( gll, inv, r ) ); 
[ 1, 1, 1, 149/165, 25/33, 31/55, 23/55, 23/55, 1/3, 1/3 ] 

gap> Minimum ( prop ) ; 
1/3 

For the first part of statement (d), we have to deal only with the case of triples of involutions. 

The 11-cycle s is contained in exactly one maximal subgroup of S, of index 12. By CoroUarv 12.21 it 
is enough to show that in the primitive degree 12 representation of S, the fixed points of no triple 
{xi, X2, xs) of involutions in S can cover all twelve points; equivalenly (considering complements), we 
show that there is no triple such that the intersection of the sets of moved points is empty. 

gap> inv: = gl2 . 1 ; 

(1,6)(2,9)(5,7)(8,10) 

gap> moved := MovedPoints( inv ); 

[ 1, 2, 5, 6, 7, 8, 9, 10 ] 

gap> orbl2:= Orbit ( gl2, moved, OnSets );; 

gap> Length ( orbl2 ) ; 

165 

gap> TripleWithProperty( [ orbl2{[l]}-, orbl2, orbl2 ], 

> list -> IsEmpty( Intersection( list ) ) ) ; 
fail 

This implies that the uniform spread of S is at least three. 

Now we show that there is a quadruple consisting of one element of order three and three involutions 
whose fixed points cover all points in the degree 23 representation constructed above; since the 
permutation character of this representation is strictly positive, this implies that 5* does not have 
spread four, by CoroUarv 12.31 and we have proved statement (d). 

gap> inv : = g23 . 1 ; 
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(2,10) (4,11) (5,7) (8,9) (12,17) (13,20) (16,18) (19,21) 
gap> moved := MovedPoints( inv ); 

[ 2, 4, 5, 7, 8, 9, 10, 11, 12, 13, 16, 17, 18, 19, 20, 21 ] 
gap> orb23:= Orbit ( g23, moved, OnSets );; 
gap> three := ( g23 . I*g23 . 2'2 )"2; 

(2,6,10) (4,8,7) (5,9,11) (12,17,23) (15,18,16) (19,21,22) 
gap> movedthree:= MovedPoints( three );; 

gap> QuadrupleWithProperty ( [ [ movedthree ], orb23, orb23, orb23 ], 
> list -> IsEmpty( Iiitersection( list ) ) ) ; 

[ [ 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 15, 16, 17, 18, 19, 21, 22, 23 ], 
[ 1, 3, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 18, 20, 21 ], 
[ 1, 2, 3, 4, 5, 6, 7, 11, 12, 13, 14, 15, 18, 19, 20, 23 ], 
[ 1, 2, 3, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 20, 22, 23 ] ] 

5.10 Mi2 

We show that S — M\2 satisfies the following. 

(a) (t{S) — 1/3, and this value is attained exactly for a{S,s) with s of order 10. 

(b) For s £ 5 of order 10, M{S,s) consists of two nonconjugate subgroups of the type Afi.2^, and 
one group of the type 2 x S5. 

(c) P{S) = 31/99, and this value is attained exactly for P{S, s) with s of order 10. 

(d) The uniform spread of S is at least three, with s of order 10. 

(e) a'{Aut{S),s) = 4/99. 

Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4. II 

gap> t:= CharacterTable( "M12" );; 

gap> ProbGenInf oSimple( t ); 

[ "M12" , 1/3, 2, [ "lOA" ] , [ 3 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the only classes of 
maximal subgroups that contain el ements of order 10 consist of groups of the structures (two 
classes) and 2 x 5*5 (one class), see [CCN^SSl p. 33]. 

gap> spos:= Position( OrdersClassRepresentatives ( t ), 10 ) ; 
13 

gap> prim:= PrimitivePermutationCharacters ( t );; 
gap> List( prim, x -> x{ [1, spos ] } ); 

[ [ 12, ], [ 12, ], [ 66, 1 ], [ 66, 1 ], [ 144, ], [ 220, ], 

[ 220, ], [ 396, 1 ], [ 495, ], [ 495, ], [ 1320, ] ] 
gap> Maxes ( t ) ; 

[ "Mil", "M12M2", "A6.2~2", "M12M4" , "L2(ll)", "3~2.2.S4", "M12M7" , "2xS5", 
"M8.S4", "4-2:D12", "A4xS3" ] 

For statement (c) (which implies statement (d)), we use the primitive permutation representation on 
12 points. 

gap> g:= MathieuGroup( 12 ); 

Group([ (1,2,3,4,5,6,7,8,9,10,11), (3,7, 11 ,8) (4, 10 ,5 ,6) , 
(1,12) (2, 11) (3, 6) (4, 8) (5, 9) (7, 10) ]) 

First we show that for s of order 10, P{S, s) = 31/99 holds. 
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gap> approx:= ApproxP( prim, spos ); 

[ 0, 3/11, 1/3, 1/11, 1/132, 13/99, 13/99, 13/396, 1/132, 1/33, 1/33, 1/33, 

13/396, 0, ] 
gap> 2B:= g.2~2; 

(3,11)(4,5)(6,10)(7,8) 

gap> SizeC ConjugacyClass ( g, 2B ) ); 

495 

gap> ResetGlobalRandomNumberGenerators ; 
gap> repeat s:= Random ( g ); 
> until Order ( s ) = 10; 

gap> prop:= RatioOf NongenerationTransPermGroupC g, 2B, s ); 
31/99 

gap> FilteredC approx, x -> x >= prop ); 
[ 1/3 ] 

Next we show that for s of order different from 10, P{g,s) is larger than 31/99 for suitable g £ . 
Except for s in the class 6A (which fixes no point in the degree 12 representation), it suffices to 
consider g in the class 2B (with four fixed points). 

gap> x:= g.2~2; 
(3,11)(4,5)(6,10)(7,8) 

gap> ccl:= List( ConjugacyClasses ( g ), Representative );; 
gap> SortParalleK List( ccl, Order ), ccl ); 

gap> prop:= List( ccl, r -> RatioOf NongenerationTransPermGroupC g, x, r ) ); 
[ 1, 1, 1, 39/55, 1, 1, 1, 29/33, 43/55, 7/55, 383/495, 383/495, 31/99, 5/9, 
5/9 ] 

gap> bad:= FilteredC prop, x -> x < 31/99 ); 
[ 7/55 ] 

gap> pos:= PositionC prop, bad[l] );; 

gap> [ OrderC ccl[ pos ] ), NrMovedPoints C ccl[ pos ] ) ]; 
[6, 12 ] 

In the remaining case, we choose g in the class 2A (which is fixed point free). 
gap> x:= g.3; 

Cl,12) C2,ll) C3,6) C4,8) C5,9) C7,10) 
gap> s:= ccl[ pos ];; 

gap> prop:= RatioOf NongenerationTransPermGroupC g, x, s ); 
17/33 

gap> prop > 31/99; 
true 

Statement (e) has been shown already in Section [4.21 

5.11 07(3) 

We show that S — 07(8) satisfies the following. 

(a) i7{S) — 199/351, and this value is attained exactly for (j{S, s) with s of order 14. 

(b) For s G 5 of order 14, A4{S,s) consists of one group of the type 2. (74(3). 22 — 0^(6, 3). 2 and 
two nonconjugate groups of the type Sg. 

(c) P{S) = 155/351, and this value is attained exactly for P(S,s) with s of order 14. 

(d) The uniform spread of S is at least three, with s of order 14. 
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(e) o-'(Aut(S),s) = 1/3. 

Currently GAP provides neither the table of marks of S nor all character tables of its maximal 

subgroups. First we compute those primitive permutation characters of S that have the degrees ,351 
(point stabilizer 2. (74(3). 22), 364 (point stabilizer 3^ : (74(2). 2), 378 (point stabilizer L4(3).22), 1080 
(point stabilizer G2(3), two classes), 1 120 (point stabilizer 3^'^'^ : 1/3(3)), 3 159 (point stabilizer 5*6(2), 
two classes), 12 636 (point stabilizer Sg, two classes), 22113 (point stabilizer (2^ x ?74(2)).2, which 
extends to Da x t/4(2).2 in 07(3).2), and 28 431 (point stabilizer 2® : A7). 

(So we ignore the primitive permutation characters of the degrees 3 640, 265 356, and 331 695. Note 
that the orders of the corresponding subgroups are not divisible by 7.) 

gap> t:= CharacterTableC "07(3)" );; 
gap> someprim : = [] ; ; 

gap> pi:= PossiblePermutationCharactersC 

> CharacterTableC "2.U4(3) .2_2" ), t );; LengthC pi ); 
1 

gap> Append ( someprim, pi ) ; 

gap> pi:= PermCharsC t, rec( torso := [ 364 ] ) );; Length( pi ); 
1 

gap> Append ( someprim, pi ) ; 

gap> pi:= PossiblePermutationCharactersC 

> CaiaracterTable ( "L4(3).2_2" ), t );; LengthC pi ); 
1 

gap> Append ( someprim, pi ) ; 

gap> pi:= PossiblePermutationCharactersC CharacterTableC "G2C3)" ), t ); 
[ CharacterC CharacterTableC "07C3)" ), [ 1080, 0, 0, 24, 108, 0, 0, 0, 27, 

18, 9, 0, 12, 4, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 3, 6, 0, 3, 

2, 2, 2, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 4, 0, 3, 0, 1, 1, 0, 0, 0, 0, 0, 
0, ] ), CharacterC CharacterTableC "07C3)" ), 

[ 1080, 0, 0, 24, 108, 0, 0, 27, 0, 18, 9, 0, 12, 4, 0, 0, 0, 0, 0, 0, 0, 
0, 12, 0, 0, 0, 0, 3, 0, 0, 6, 3, 2, 2, 2, 0, 0, 3, 0, 0, 0, 0, 0, 0, 
0, 4, 3, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, ] ) ] 
gap> Append C someprim, pi ) ; 

gap> pi:= PermCharsC t, recC torso := [ 1120 ] ) );; LengthC pi ); 
1 

gap> Append C someprim, pi ) ; 

gap> pi:= PossiblePermutationCharactersC CharacterTableC "S6C2)" ), t ); 
[ CharacterC CharacterTableC "07C3)" ), [ 3159, 567, 135, 39, 0, 81, 0, 0, 
27, 27, 0, 15, 3, 3, 7, 4, 0, 27, 0, 0, 0, 0, 0, 9, 3, 0, 9, 0, 3, 9, 

3, 0, 2, 1, 1, 0, 0, 0, 3, 0, 2, 0, 0, 0, 3, 0, 0, 3, 1, 0, 0, 0, 1, 0, 
0, 0, 0, ] ), CharacterC CharacterTableC "07C3)" ), 

[ 3159, 567, 135, 39, 0, 81, 0, 27, 0, 27. 0. 15, 3, 3, 7, 4, 0, 27, 0, 
0, 0, 0, 0, 9, 3, 0, 9, 3, 0, 3, 9, 0, 2, 1, 1, 0, 0, 3, 0, 0, 2, 0, 0, 
0, 3, 0, 3, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, ] ) ] 
gap> Append C someprim, pi ) ; 

gap> pi:= PossiblePermutationCharactersC CharacterTableC "S9" ), t ); 

[ CharacterC CharacterTableC "07C3)" ), [ 12636, 1296, 216, 84, 0, 81, 0, 0, 
108, 27, 0, 6, 0, 12, 10, 1, 0, 27, 0, 0, 0, 0, 0, 9, 3, 0, 9, 0, 12, 
9, 3, 0, 1, 0, 2, 0, 0, 0, 3, 1, 1, 0, 0, 0, 3, 0, 0, 0, 1, 0, 0, 1, 1, 
0, 0, 0, 0, 1 ] ), CharacterC CharacterTableC "07(3)" ), 
[ 12636, 1296, 216, 84, 0, 81, 0, 108, 0, 27, 0, 6, 0, 12, 10, 1, 0, 27, 
0, 0, 0, 0, 0, 9, 3, 0, 9, 12, 0, 3, 9, 0, 1, 0, 2, 0, 0, 3, 0, 1, 1, 
0, 0, 0, 3, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1 ] ) ] 

gap> Append C someprim, pi ) ; 
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gap> t2:= CharacterTableC "07(3). 2" );; 

gap> s2:= CharacterTableC "Dihedral", 8 ) * CharacterTableC "U4C2).2" ); 
CharacterTableC "Dihedral C8)xU4C2) .2" ) 

gap> pi:= PossiblePermutationCharacters C s2, t2 ) ; ; LengthC pi ); 
1 

gap> pi:= RestrictedClassFunctions C pi, t );; 

gap> Append C someprim, pi ) ; 

gap> pi:= PossiblePermutationCharacters C 

> CharacterTableC "2"6:A7" ), t );; LengthC pi ); 
1 

gap> Append C someprim, pi ) ; 
gap> ListC someprim, x -> x[l] ); 

[ 351, 364, 378, 1080, 1080, 1120, 3159, 3159, 12636, 12636, 22113, 28431 ] 

Note that in the three cases where two possible permutation characters were found, there are in fact 
two classes of subgroups that ind uce differen t permutation characters. For the subgroups of the types 
G2(3) and 5*6(2), this is stated in [CCN^SSl p. 109], and for the subgroups of the type Sg, this follows 
from the fact that each Sg type subgroup in 5* contains elements in exactly one of the classes 3D or 
3E, and these two classes are fused by the outer automorphism of S. 

gap> cl:= PositionsProperty C AtlasClassNames C t ), 

> X -> X in [ "3D", "3E" ] ) ; 
[ 8, 9 ] 

gap> ListC FilteredC someprim, x -> x[l] = 12636 ) , pi -> pi{ cl } ) ; 

[ [ 0, 108 ] , [ 108, ] ] 

gap> GetFusionMapC t, t2 ){ cl >; 

[ 8, 8 ] 

Now we compute the lower bounds for (7{S, s') that are given by the sublist someprim of the primitive 
permutation characters. 

gap> spos:= PositionC OrdersClassRepresentatives C t ), 14 ) ; 
52 

gap> MaximumC ApproxPC someprim, spos ) ); 
199/351 

This shows that a{S,s) — 199/351 holds. For statement (a), we have to show that choosing s' from 
another class than 14A yields a larger value for a{S,s'). 

gap> approx:= ListC [ 1 .. NrConjugacyClasses C t ) ], 

> i -> MaximumC ApproxPC someprim, i ) ) );; 
gap> PositionsProperty C approx, x -> x <= 199/351 ); 
[ 52 ] 

Statement (b) can be read off from the permutation characters. 

gap> pos:= PositionsProperty C someprim, x -> x[ spos ] <> ); 
[ 1, 9, 10 ] 

gap> ListC someprim{ pos }■, x -> x{ [1, spos ] }■ ) ; 
[ [351, 1 ], [ 12636, 1 ], [ 12636, 1 ] ] 

For statement (c), we first compute P{g,s) for g in the class 2A, via explicit computations with the 
group. For dealing with this case, we first construct a faithful permutation representation of Or{3) 
from the natural matrix representation of SO(7, 3). 
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gap> so73:= SpecialOrthogonalGroupC 7, 3 );; 

gap> o73:= DerivedSubgroupC so73 );; 

gap> permg:= Image( IsomorphismPermGroupC o73 ) );; 

gap> orbs:= Orbits( permg, MovedPointsC permg ) );; 

gap> List( orbs. Length ); 

[ 756, 702, 728 ] 

gap> g:= ActionC permg, orbs [2] );; 

gap> SizeC g ) = Size( t ); 

true 

A 2A element g can be found as the 7-th power of any element of order 14 in S. 

gap> ResetGlobalRandomNumberGeneratorsO ; 
gap> repeat s:= Random( g ); 

> until OrderC s ) = 14; 
gap> 2A:= s"7; ; 

gap> bad:= RatioOfNongenerationTransPermGroupC g, 2A, s ); 
155/351 

gap> bad > 1/3; 
true 

gap> approx:= ApproxP( someprim, spos );; 

gap> PositionsPropertyC approx, x -> x >= 1/3 ); 

[ 2 ] 

This shows that P{g,s) = 155/351 > 1/3. Since a{g,s) < 1/3 for all nonidentity g not in the class 
2A, we have P{S,s) = 155/351. For statement (c), it remains to show that P{S,s') is larger than 
155/351 whenever s' is not of order 14. First we compute P{g,s'), for g in the class 2A. 

gap> consider:= RepresentativesMaximallyCyclicSubgroups ( t ); 

[ 18, 19, 25, 26, 27, 30, 31, 32, 34, 35, 38, 39, 41, 42, 43, 44, 45, 46, 47, 

48, 49, 50, 52, 53, 54, 56, 57, 58 ] 
gap> LengthC consider ) ; 
28 

gap> consider := ClassesPerhapsCorrespondingToTableColumnsC g, t, consider );; 

gap> Length. ( consider ) ; 

31 

gap> consider := List( consider, Representative );; 
gap> SortParalleK List( consider, Order ), consider ); 
gap> app2A:= List( consider, c -> 

> RatioOfNongenerationTransPermGroupC g, 2A, c ) ); 

[ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 85/117, 10/13, 10/13, 1, 1, 1, 1, 1, 1, 

23/39, 23/39, 1, 1/3, 1/3, 155/351, 67/117, 1, 1, 1, 1, 191/351 ] 
gap> test:= PositionsPropertyC app2A, x -> x <= 155/351 ); 
[ 23, 24, 25 ] 

gap> ListC test, i -> OrderC consider [i] ) ); 
[ 13, 13, 14 ] 

We see that only for s' in one of the two (algebraically conjugate) classes of element order 13, P{S, s') 
has a chance to be smaller than 155/351. This possibility is now excluded by counting elements in 
the class 3A that do not generate S together with s' of order 13. 

gap> C3A:= FirstC ConjugacyClasses C g ), 

> c -> OrderC Representative C c ) ) = 3 and SizeC c ) = 7280 );; 
gap> repeat ss:= Random C g ); 

> until OrderC ss ) = 13; 
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gap> bad:= RatioOfNongenerationTransPermGroupC g, Representative ( C3A ), ss ) ; 
17/35 

gap> bad > 155/351; 
true 

Now we show statement (d): For each triple {xi, X2, xs) of nonidentity elements in S, there is an 
element s in the class 14A such that {xi,s) = S holds for 1 < i < 3. We can read off from the 
character-theoretic data that only those triples have to be checked for which at least two elements 
are contained in the class 2A, and the third element lies in one of the classes 2A, 2B, 3B. 

gap> approx:= ApproxP( someprim, spos );; 

gap> max:= Maximum ( approx{ [ 3 .. Length ( approx ) ] } ); 
59/351 

gap> 155 + 2*59 < 351; 
true 

gap> third:= PositionsProperty ( approx, x -> 2 * 155/351 + x >= 1 ) ; 
[ 2, 3, 6 ] 

gap> ClassNamesC t ){ third }; 
[ "2a", "2b", "3b" ] 

We can find elements in the classes 2B and 3B as powers of arbitrary elements of the orders 20 and 
15, respectively. 

gap> ord20:= PositionsProperty ( QrdersClassRepresentatives( t ), 

> X -> X = 20 ) ; 
[ 58 ] 

gap> PowerMapC t, 10 ){ ord20 }; 
[ 3 ] 

gap> repeat x:= Random( g ); 

> until Order ( x ) =20; 
gap> 2B:= x"10; ; 

gap> C2B:= ConjugacyClass( g, 2B );; 

gap> ordl5:= PositionsProperty ( OrdersClassRepresentatives( t ), 

> X -> X = 15 ) ; 
[ 53 ] 

gap> PowerMapC t, 10 ){ ordl5 }; 
[ 6 ] 

gap> repeat x:= RandomC g ); 

> until Order ( x ) = 15; 
gap> 3B:= x~5; ; 

gap> C3B:= ConjugacyClassC g, 3B );; 
The existence of s can be shown with the random approach described in Section [3.31 

gap> repeat s:= RandomC g ); 

> until Order ( s ) = 14; 

gap> RandomCheckUniformSpreadC g, [ 2A, 2A, 2A ] , s, 50 ) ; 
true 

gap> RandomCheckUniformSpreadC g, [ 2B, 2A, 2A ] , s, 50 ) ; 
true 

gap> RandomCheckUniformSpreadC g, [ 3B, 2A, 2A ] , s, 50 ) ; 
true 

Finally, we show statement (e). Let G = Aut(S') = S.2. By [CCN+851 p. 109], M'{G,s) consists 
of the extension of the 2.?74(3).2i type subgroup. We compute the extension of the permutation 
character. 
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gap> prim:= someprim-[ [ 1 ] }; 

[ CharacterC CharacterTable ( "07(3)" ), [ 351, 127, 47, 15, 27, 45, 36, 0, 0, 
9, 0, 15, 3, 3, 7, 6, 19, 19, 10, 11, 12, 8, 3, 5, 3, 6, 1, 0, 0, 3, 3, 

0, 1, 1, 1, 6, 3, 0, 0, 2, 2, 0, 3, 0, 3, 3, 0, 0, 1, 0, 0, 1, 0, 4, 4, 

1, 2, ] ) ] 

gap> spos:= PositionC AtlasClassNames ( t ), "14A" );; 

gap> t2:= CharacterTable ( "07(3). 2" );; 

gap> map:= InverseMapC GetFusionMapC t, t2 ) );; 

gap> torso:= List( prim, pi -> CompositionMaps( pi, map ) );; 

gap> ext:= List( torso, x -> PermCharsC t2, rec( torso := x ) ) ); 

[ [ CharacterC CharacterTable ( "07(3). 2" ), [ 351, 127, 47, 15, 27, 45, 36, 

0, 9, 0, 15, 3, 3, 7, 6, 19, 19, 10, 11, 12, 8, 3, 5, 3, 6, 1, 0, 
3, 0, 1, 1, 1, 6, 3, 0, 2, 2, 0, 3, 0, 3, 3, 0, 1, 0, 0, 1, 0, 4, 

1, 2, 0, 117, 37, 21, 45, 1, 13, 5, 1, 9, 9, 18, 15, 1, 7, 9, 6, 4, 
0, 3, 0, 3, 3, 6, 2, 2, 9, 6, 1, 3, 1, 4, 1, 2, 1, 1, 0, 3, 1, 0, 
0, 0, 0, 1, 1, 0, ] ) ] ] 

gap> approx:= ApproxP( ConcatenationC ext ), 

> PositionC AtlasClassNames ( t2 ), "14A" ) );; 
gap> MaximumC approx{ Difference ( 

> PositionsProperty ( OrdersClassRepresentativesC t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) ) } ) ; 
1/3 

5.12 C>+(2) 

We show that S = (2) = Q.+ {S, 2) satisfies the following. 

(a) (j{S) — 334/315, and this value is attained exactly for cr{S, s) with s of order 15. 

(b) For s G S of order 15, M{S,s) consists of one group of the type 56(2), two conjugate groups 
of the type 2® : Ag, two conjugate groups of the type Ag, and one group of each of the types 
(3 X (74(2)) : 2 = (3 X n-{6,2)) : 2 and {As x A5) : 2^ = (^"(4,2) x n"(4,2)) : 2^ 

(c) P{S) = 29/42, and this value is attained exactly for P{S, s) with s of order 15. 

(d) Let x,y £ S such that x, y, xy lie in the unique involution class of length 1 575 of S. (This is the 
class 2A.) Then each element in S together with one of x, y, xy generates a proper subgroup of 
S. 

(e) Both the spread and the uniform spread of 5 is exactly two, with s of order 15. 

(f) For each choice of s £ S, there is an extension S.2 such that for any element g in the (outer) 
class 2F, {s,g) does not contain S. 

(g) For an element s of order 15 in S, either S is the only maximal subgroup of 5.2 that contains 
s, or the maximal subgroups of S.2 that contain s are S and the extensions of the subgroups 
hsted in statement (b); these groups have the structures ^6(2) x 2, 2® : Ss (twice), Sg (twice), 
S3 x (74 (2). 2, and Ss ! 2. 

(h) For s G 5 of order 15 and arbitrary g £ 5.3 \ S, we have (s, g) = S.3. 

(i) If X, y are nonidentity elements in Aut(S') then there is an element s of order 15 in S such that 

5C {x,s)r}{y,s). 

Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTable ( "08+(2)" );; 
gap> ProbGenInf oSimpleC t ); 

[ "08+(2)", 334/315, 0, [ "15A", "15B", "15C" ], [ 7, 7, 7 ] ] 
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Statement (b) can be read ofT from the permutation characters, and the fact that the only classes of 
ma ximal subg roups that contain elements of order 15 consist of groups of the structures as claimed, 
see [CCN+Ssf p. 85]. 

gap> prim:= PrimitivePermutationCharacters( t );; 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 15 ) ; ; 

gap> List( FilteredC prim, x -> x[ spos ] <> ), 1 -> 1{ [1, spos ] }■ ) ; 

[ [ 120, 1 ], [ 135, 2 ], [ 960, 2 ], [ 1120, 1 ], [ 12096, 1 ] ] 

For the remaining statements, we take a primitive permutati on represe ntation on 120 points, and 
assume that the permutation character is la+35a+84a. (See [CCN^SSl p. 85], note that the three 
classes of maximal subgroups of index 120 in S are conjugate under triality.) 

gap> matgroup : = DerivedSubgroup ( GeneralOrthogonalGroup ( 1 , 8 , 2 ) ) ; ; 
gap> points:= NormedRowVectors ( GF(2)~8 );; 
gap> orbs:= Orbits ( matgroup, points );; 
gap> List ( orbs , Length ) ; 
[ 135, 120 ] 

gap> g:= ActionC matgroup, orbs [2] );; 

gap> Size( g ) ; 

174182400 

gap> pi:= SumC Irr( t ) { [ 1 , 3 , 7 ] > ) ; 

Character ( CharacterTable( "08+ (2)" ), [ 120, 24, 32, 0, 0, 8, 36, 0, 0, 3, 
6, 12, 4, 8, 0, 0, 0, 10, 0, 0, 12, 0, 0, 8, 0, 0, 3, 6, 0, 0, 2, 0, 0, 2, 
1, 2, 2, 3, 0, 0, 2, 0, 0, 0, 0, 0, 3, 2, 0, 0, 1, 0, ] ) 

In order to show statement (c), we first observe that for s in the class 15A and g not in one of the 
classes 2A, 2B, 3A, a{g,s) < 1/3 holds, and for the exceptional three classes, we have a{g,s) > 1/2. 

gap> approx:= ApproxP( prim, spos );; 

gap> testpos:= PositionsProperty ( approx, x -> x >= 1/3 ); 
[ 2, 3, 7 ] 

gap> AtlasClassNames( t ){ testpos }; 

[ "2A", "2B", "3A" ] 
gap> approx{ testpos }■; 

[ 254/315, 334/315, 1093/1120 ] 

gap> ForAlK approx{ testpos }, x -> x > 1/2 ); 
true 

Now we compute the values P{g,s), for s in the class 15A and g in one of the classes 2A, 2B, 3A. 

By our choice of the character of the permutation representation we use, the class 15A is determined 
as the unique class of element order 15 with one fixed point. (Note that the three classes of element 
order 15 in S are conjugate under triality.) A 2A element can be found as the fourth power of any 
element of order 8 in S', a 3A element can be found as the fifth power of a 15A element, and a 2B 
element can be found as the sixth power of an element of order 12, with 32 fixed points. 

gap> ResetGlobalRandomNumberGenerators ; 
gap> repeat s:= Random( g ); 

> until OrderC s ) = 15 and NrMovedPoints( g ) = 1 + NrMovedPoints( s ); 
gap> 3A:= s~5; ; 

gap> repeat x:= Random( g ); until Order( x ) = 8; 
gap> 2A:= x"4; ; 

gap> repeat x:= Random( g ); until Order( x ) = 12 and 

> NrMovedPoints( g ) = 32 + NrMovedPoints( x~6 ); 
gap> 2B:= x"6; ; 
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gap> propl5A:= List( [ 2A, 2B, 3A ], 

> X -> RatioOfNongenerationTransPermGroupC g, x, s ) ); 
[ 23/35, 29/42, 149/224 ] 

gap> Maximum ( propl5A ) ; 
29/42 

This means that for s in the class 15A, we have P{S, s) = 29/42, and the same holds for all s of order 
15 since the three cleisses of element order 15 are conjugate under triality. Now we show that for s of 
order different from 15, the value P{g, s) is larger than 29/42, for g in one of the classes 2A, 2B, 3A, 
or their images under triality. This implies statement (c). 

gap> test:= List( [ 2A, 2B, 3A ] , x -> ConjugacyClassC g, x ) );; 
gap> ccl:= ConjugacyClassesC g );; 

gap> consider := Filtered( ccl, c -> Size( c ) in List( test. Size ) );; 

gap> LengthC consider ) ; 

7 

gap> filt:= FilteredC ccl, c -> ForAlK consider, cc -> 

> RatioOf NongenerationTransPermGroupC g, Representative ( cc ), 

> Representative ( c ) ) <= 29/42 ) );; 
gap> LengthC f ilt ) ; 

3 

gap> ListC filt, c -> OrderC Representative ( c ) ) ); 

[ 15, 15, 15 ] 

Now we show statement (d). First we observe that all those Klein four groups in S whose involutions 
lie in the class 2A are conjugate in S. Note that this is the unique class of length 1 575 in S, and also 

the unique class whose elements have 24 fixed points in the degree 120 permutation representation. 

For that, we use the character table of S to read off that S contains exactly 14 175 such subgroups, 
and we use the group to compute one such subgroup and its normalizer of index 14 175. 

gap> SizesConjugacyClassesC t ); 

[ 1, 1575, 3780, 3780, 3780, 56700, 2240, 2240, 2240, 89600, 268800, 37800, 
340200, 907200, 907200, 907200, 2721600, 580608, 580608, 580608, 100800, 
100800, 100800, 604800, 604800, 604800, 806400, 806400, 806400, 806400, 
2419200, 2419200, 2419200, 7257600, 24883200, 5443200, 5443200, 6451200, 
6451200, 6451200, 8709120, 8709120, 8709120, 1209600, 1209600, 1209600, 
4838400, 7257600, 7257600, 7257600, 11612160, 11612160, 11612160 ] 

gap> WrPolyhedralSubgroups ( t , 2 , 2 , 2 ) ; 

rec( number := 14175, type := "V4" ) 

gap> repeat x:= Random ( g ); 

> until OrderC x ) mod 2=0 

> and NrMovedPointsC x*C Order Cx)/2 ) ) = 120 - 24; 
gap> x:= x~C Order Cx)/2 );; 

gap> repeat y:= x"RandomC g ); 

> until NrMovedPointsC x*y ) = 120 - 24; 
gap> v4:= SubgroupNCC g, [ x, y ] );; 

gap> n:= NormalizerC g, v4 );; 

gap> Index C g, n ) ; 

14175 

We verify that the triple has the required property. 

gap> maxorder:= RepresentativesMaximallyCyclicSubgroupsC t );; 

gap> maxorderreps : = ListC ClassesPerhapsCorrespondingToTableColumnsC g, t, 

> maxorder ) , Representative ) ; ; 
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gap> Length ( maxorderreps ) ; 
28 

gap> CommonGeneratorWitliGivenElementsC g, maxorderreps, [ x, y, x*y ] ); 
fail 

For the simple group S, it remains to show statement (e). We want to show that for any choice of 
two nonidentity elements x, y in S, there is an element s in the class 15A such that (s, x) — {s, y) = S 
holds. Only x, y in the classes given by the list testpos must be considered, by the estimates (j{g, s). 

We replace the values (j{g, s) by the exact values P{g, s), for g in one of these three classes. Each of 
the three classes is determined by its element order and its number of fixed points. 

gap> reps:= List( ccl, Representative );; 

gap> bading:= List( testpos, i -> Filtered( reps, 

> r -> Order ( r ) = OrdersClassRepresentatives( t ) [i] and 

> NrMovedPointsC r ) = 120 - pi [i] ) );; 
gap> List( bading. Length ); 

[ 1, 1, 1 ] 

gap> bading:= List( bading, x -> x[l] );; 

For each pair (Ci,C2) of classes represented by this list, we have to show that for any choice of 
elements x G Ci, y £ C2 there is s in the class 15A such that {s,x) = {s,y} — S holds. This is done 
with the random approach that is described in Section [3.31 

gap> for pair in UnorderedTuples ( bading, 2 ) do 



> test:= RandomCheckUnif ormSpreadC g, pair, s, 80 ); 

> if test <> true then 

> Error ( test ) ; 

> f i; 

> od; 



We get no error message, so statement (e) holds. 

Now we turn to the automorphic extensions of S. First we compute a permutation representation of 
S0^(8, 2) = S.2 and an element g in the class 2F, which is the unique conjugacy class of size 120 in 
5.2. 

gap> matgrp:= S0(l,8,2);; 

gap> g2:= Image ( IsomorphismPermGroupC matgrp ) );; 

gap> IsTransitive ( g2, MovedPoints( g2 ) ) ; 

true 

gap> repeat x:= Random( g2 ); until Order( x ) = 14; 
gap> 2F:= x~7 ; ; 

gap> Size( ConjugacyClass( g2, 2F ) ) ; 
120 

Only for s in six conjugacy classes of S, there is a nonzero probability to have S.2 — {g, s). 
gap> der : = DerivedSubgroup ( g2 ) ; ; 

gap> cclreps:= List( ConjugacyClasses( der ), Representative );; 
gap> nongen:= List( cclreps, 

> X -> RatioOf NongenerationTransPermGroupC g2, 2F, x ) );; 
gap> goodpos:= PositionsProperty ( nongen, x -> x < 1 ) ; ; 

gap> invariants:= List( goodpos, i -> [ Order( cclreps [i] ), 

> Size( CentralizerC g2, cclreps [i] ) ), nongen [i] ] );; 
gap> SortedListC invariants ); 

[ [ 10, 20, 1/3 ] , [ 10, 20, 1/3 ] , [ 12, 24, 2/5 ] , [ 12, 24, 2/5 ], 
[ 15, 15, ] , [ 15, 15, ] ] 
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S contains three classes of element order 10, which are conjugate in S.3. For a fixed extension of the 
type S.2, the element s can be chosen only in two of these three classes, which means that there is 
another group of the type S.2 (more precisely, another subgroup of index three in S.S3) in which this 
choice of s is not suitable - note that the general aim is to find s £ S uniformly for all automorphic 
extensions of S. Analogous statements hold for the other possibilities for s, so statement (f) follows. 

Statement (g) follows from the list of maximal subgroups in |CCN+85l p. 85]. 

Statement (h) follows from the fact that S is the only maxim al subgrou p of S.3 that contains elements 
of order 15, according to the list of maximal subgroups in [CCN+851 p. 85]. Alternatively, if we do 
not want to assume this information, we can use explicit computations, as follows. All we have to 
check is that any element in the classes 3F and 3G generates 5.3 together with a fixed element of order 
15 in S. 

We compute a permutation representation of S.3 as the derived subgroup of a subgroup of the type 
5.53 inside the sporadi c simple F ischer group Fi22', these subgroups lie in the fourth class of maximal 
subgroups of Fi22, see [CCN^SSl p. 163]. An element in the class 3F of S.3 can be found as a power 
of an order 21 element, and an element in the class 3G can be found as the fourth power of a 12P 
element. 

gap> aut:= Group( AtlasGenerators ( "Fi22", 1, 4 ) .generators );; 

gap> Size( aut ) = 6 * Size( t ); 

true 

gap> g3:= DerivedSubgroupC aut );; 

gap> orbs:= Orbits ( g3, MovedPoints( g3 ) );; 

gap> List( orbs. Length ); 

[ 3150, 360 ] 

gap> g3:= ActionC g3, orbs [2] );; 

gap> repeat s:= Random( g3 ); until Order( s ) = 15; 
gap> repeat x:= Random( g3 ); until Order( x ) = 21; 
gap> 3F:= x~7; ; 

gap> RatioOf NongenerationTransPermGroupC g3, 3F, s ); 


gap> repeat x:= Random ( g3 ); 

> until Order ( x ) = 12 and Size( Centralizer( g3, x~4 ) ) = 648; 
gap> 3G:= x~4; ; 

gap> RatioOf NongenerationTransPermGroupC g3, 3G, s ) ; 


Finally, consider statement (i). It implies that [BGKI Corollary 1.5] holds for 0^(8, 2), with s of order 
15. Note that by part (f), s cannot be chosen in a prescribed conjugacy class of S that is independent 
of the elements x, y. 

If X and y lie in S then statement (i) follows from part (e), and by part (g), the case that x ox y lie 
in S.3 \ S is also not a problem. We now show that also s or y in S.2 \ 5 is not a problem. Here we 
have to deal with the cases that x and y lie in the same subgroup of index 3 in Aut (5*) or in different 
such subgroups. Actually we show that for each index 3 subgroup H = S.2 < Aut(S), we can choose 
s from two of the three classes of element order 15 in S such that S is the only maximal subgroup of 
H that contains s, and thus (a:, s) contains H, for any choice of x £ H \ S. 

For that, we note that no novelty in S.2 contains elements of order 15, so all maximal subgroups 
of S.2 that contain such elements -besides S- have one of the indices 120, 135,960, 1120, or 12096, 
and point stabilizers of the types S6(2) x 2, 2® : Sg, Sg, S3 x U4{2) : 2, or S5 I 2. We compute the 
corresponding permutation characters. 

gap> t2:= CharacterTableC "08+(2).2" );; 

gap> s:= CharacterTableC "36(2)" ) * CharacterTableC "Cyclic", 2 );; 
gap> pi:= PossiblePermutationCharacters ( s, t2 );; 
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gap> prim:= pi; ; 

gap> pi:= PermCharsC t2, rec( torso := [ 135 ] ) );; 
gap> Append ( prim, pi ) ; 

gap> pi:= PossiblePermutationCharactersC ChairacterTableC "A9.2" ), t2 );; 
gap> Append ( prim, pi ) ; 

gap> s:= CharacterTableC "Dihedral(6) " ) * CharacterTable ( "U4(2).2" );; 
gap> pi:= PossiblePermutationCharactersC s, t2 );; 
gap> Append ( prim, pi ) ; 

gap> s:= CharacterTableWreathSymmetricC CharacterTableC "S5" ), 2 );; 

gap> pi:= PossiblePermutationCharactersC s, t2 );; 

gap> Append C prim, pi ) ; 

gap> Length C prim ) ; 

5 

gap> ordl5:= PositionsProperty C OrdersClassRepresentativesC t2 ), 
> X -> X = 15 ) ; 

[ 39, 40 ] 

gap> ListC prim, pi -> pi{ ordlS ]■ ); 

[[1,0], [2, 0], [2, 0], [1,0], [1,0]] 
gap> ListC ordl5, i -> MaximimC ApproxPC prim, i ) ) ); 

[ 307/120, ] 

Here it is appropriate to clean the workspace again. 
gap> CleanWorkspaceC) ; 



5.13 0^(3) 

We show that S = 0^{?>) satisfies the following. 

(a) <y{S) = 863/1820, and this value is attained exactly for cr(S, s) with s of order 20. 

(b) For s e 5 of order 20, Jvl[S,s) consists of two nonconjugate groups of the type 07(8) = 
n(7, 3), two conjugate subgroups of the type 3® : 1/4(3), two nonconjugate subgroups of the 
type [Ai X Ui{2)) : 2, and one subgroup of each of the types 2.Z74(3).(2^)i22 and {Ag x Ag) : 2^. 

(c) P{S) = 194/455, and this value is attained exactly for P{S,s) with s of order 20. 

(d) The uniform spread of S is at least three, with s of order 20. 

(e) The prcimago of s in the matrix group 2.5* — f7+(8, 3) can be chosen of order 40, and then the 
maximal subgroups of 2.5* containing s have the structures 2.07(3), 3^' : 2._L4(3), 4.^/4(3). 2^ = 
SU(4,3).2^ 2.(^4 X [/4(2)).2 = 2.(PSp(2,3)(8)PSp(4,3)).2, and 2.(yl6 xAg) : 2^ = 2.(f2-(4,3) x 
n-(4,3)) : 2^, respectively. 

(f) For s G S of order 20, we have P'{S.2i,s) € {83/567, 574/1215}, P'{S.22,s) € {0, 1} (depending 

on the choice of s), and ct'(5.3, s) — 0. 

Furthermore, for any choice of s' G S, we have a' {S.22, s') = 1 for some group S.22. However, 
if it is allowed to choose s from an Aut(5')-class of elements of order 20 (and not from a fixed 

5-class) then we can achieve a{g, s) — for any given g G S.22 \ S. 

(g) The maximal subgroups of 5.2i that contain an element of order 20 are either S and the 
extensions of the subgroups listed in statement (b) or they are S and L4(3).2^, 3® : L4(3).2 
(twice), 2.C/4(3).(2^)i22.2, and (As x Ae) : 2^2. 

In the former case, the groups have the structures 07(3) : 2 (twice), 3^ : (1/4(3) x 2) (twice), 
S4, X [/4(2).2 (twice), 2.?74(3). (2^)122.2, and {Ae x Ag) : 2^ x 2. 

Statement (a) follows from inspection of the primitive permutation characters. 
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gap> t:= CharacterTableC "08+(3)" );; 
gap> ProbGenInf oSimpleC t ); 

[ "Q8+(3)", 863/1820, 2, [ "20A", "20B", "20C" ], [ 8, 8, 8 ] ] 

Also statement (b) follows from the information provided by the character table of S (cf. [CCN^SSl 
p. 140]). 

gap> prim:= PrimitivePermutationCharacters( t );; 
gap> ord:= QrdersClassRepresentatives( t );; 
gap> spos:= PositionC ord, 20 ) ; ; 

gap> filt:= PositionsProperty ( prim, x -> x[ spos ] <> ); 
[ 1, 2, 7, 15, 18, 19, 24 ] 
gap> Maxes ( t ){ filt }; 

["07(3)", "08+(3)M2", "3-6:L4(3)", "2 .U4(3) . (2-2) _-Cl22}" , " (A4xU4(2) ) : 2" , 

"08+(3)M19", "(A6xA6) :2-2" ] 
gap> prim{ filt }{ [1, spos ] }; 

[ [ 1080, 1 ], [ 1080, 1 ], [ 1120, 2 ], [ 189540, 1 ], [ 7960680, 1 ], 
[ 7960680, 1 ], [ 9552816, 1 ] ] 

For statement (c), we first show that P{S,s) = 194/455 holds. Since this value is larger than 1/3, we 
have to inspect only those classes g'^ for which a{g, s) > 1/3 holds, 

gap> ord:= QrdersClassRepresentatives( t );; 

gap> ord20:= PositionsProperty ( ord, x -> x = 20 ) ; ; 

gap> cand:= [] ; ; 

gap> for i in ord20 do 

> approx:= ApproxP( prim, i ); 

> Add( cand, PositionsProperty ( approx, x -> x >= 1/3 ) ); 

> od; 
gap> cand; 

[ [ 2, 6, 7, 10 ], [ 3, 6, 8, 11 ], [ 4, 6, 9, 12 ] ] 
gap> AtlasClassNaines( t ){ cand[l] }; 
[ "2A", "3A", "3B", "3E" ] 

The three possibilities form one orbit under the outer automorphism group of S. 

gap> t3:= CharacterTableC "D8+(3).3" );; 

gap> tfust3:= GetFusionMap( t, t3 ) ; ; 

gap> List( cand, x -> tfust3{ x } ); 

[ [ 2, 4, 5, 6 ], [ 2, 4, 5, 6 ], [ 2, 4, 5, 6 ] ] 

By symmetry, we may consider only the first possibility, and assume that s is in the class 20A. 

We work with a permutation representation of degree 1 080, and assume that the permutation charac- 
ter is la+260a+819a. (Note that all permutation characters of S of degree 1 080 are conjugate under 
Aut(5').) 

gap> g:= Action( 30(1,8,3), NormedRowVectors ( GF(3)-8 ), OnLines );; 

gap> Size( g ) ; 

9904359628800 

gap> g:= DerivedSubgroup ( g );; Size( g ); 
4952179814400 

gap> orbs:= Orbits( g, MovedPoints( g ) );; 

gap> List( orbs. Length ); 

[ 1080, 1080, 1120 ] 

gap> g:= Action( g, orbs[l] );; 
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gap> PositionPropertyC Irr( t ), cM -> chi[l] = 819 ); 
9 

gap> pennchar:= Sum( Irr( t){ [1, 2, 9] }); 

Character ( CharacterTable ( "08+ (3)" ), [ 1080, 128, 0, 0, 24, 108, 135, 0, 0, 
108, 0, 0, 27, 27, 0, 0, 18, 9, 12, 16, 0, 0, 4, 15, 0, 0, 20, 0, 0, 12, 
11, 0, 0, 20, 0, 0, 15, 0, 0, 12, 0, 0, 2, 0, 0, 3, 3, 0, 0, 6, 6, 0, 0, 3, 
2, 2, 2, 18, 0, 0, 9, 0, 0, 0, 0, 0, 0, 3, 3, 0, 0, 3, 0, 0, 12, 0, 0, 3, 
0, 0, 0, 0, 0, 4, 3, 3, 0, 0, 1, 0, 0, 4, 0, 0, 1, 1, 2, 0, 0, 0, 0, 0, 3, 
0, 0, 2, 0, 0, 5, 0, 0, 1, 0, ] ) 

Now we show that for s in the class 20A (which fixes one point), the proportion of nongenerating 

elements g in one of the classes 2A, 3A, 3B, 3E has the maximum 194/455, which is attained exactly 
for 3A. (We find a 2A element as a power of s, a 3A element as a power of any element of order 18, a 
3B and a 3E element as elements with 135 and 108 fixed points, respectively, which occur as powers 
of suitable elements of order 15.) 

gap> permchar{ or<i20 }■; 
[ 1, 0, ] 

gap> AtlasClassNamesC t )[ PowerMapC t, 10 ) [ or<i20[l] ] ]; 
"2A" 

gap> ordl8:= PositionsPropertyC ord, x -> x = 18 );; 

gap> Set( AtlasClassNamesC t ){ PowerMapC t, 6 ){ ordl8 } > ); 

[ "3A" ] 

gap> ordl5:= PositionsPropertyC ord, x -> x = 15 );; 
gap> PowerMapC t, 5 ){ ordl5 >; 
[ 7, 8, 9, 10, 11, 12 ] 

gap> AtlasClassNamesC t ){ [ 7 .. 12 ] }; 

[ "3B", "3C", "3D", "3E", "3F", "3G" ] 
gap> permchar-[ [7 . . 12 ] }■; 

[ 135, 0, 0, 108, 0, ] 

gap> mp:= NrMovedPointsC g );; 

gap> ResetGlobalRandomNumberGeneratorsC) ; 

gap> repeat 20A:= RamdomC g ); 

> until Order C 20A ) = 20 and mp - NrMovedPointsC 20A ) = 1; 
gap> 2A:= 20A*10; ; 

gap> repeat x:= Random C g ); until Order C x ) =18; 

gap> 3A:= x~6; ; 

gap> repeat x:= RandomC g ); 

> until Order C x ) = 15 and mp - NrMovedPointsC x*5 ) = 135; 

gap> 3B:= x"5; ; 

gap> repeat x:= RandomC g ); 

> until Order C x ) = 15 and mp - NrMovedPointsC x*5 ) = 108; 
gap> 3E:= x~5; ; 

gap> nongen:= ListC [ 2A, 3A, 3B, 3E ] , 

> c -> RatioOf NongenerationTransPermGroupC g, c, 20A ) ); 
[ 3901/9477, 194/455, 451/1092, 451/1092 ] 

gap> Maximum C nongen ) ; 
194/455 

Next we compute the values P{g,s), for g is in the class 3A and certain elements s. It is enough to 
consider representatives s of maximally cyclic subgroups in S, but here we can do better, as follows. 
Since 3A is the unique class of length 72 800, it is fixed under Aut(S), so it is enough to consider one 
element s from each Aut(S')-orbit on the classes of S. We use the class fusion between the character 
tables of S and Aut(S') for computing orbit representatives. 
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gap> maxorder:= RepresentativesMaximallyCyclicSubgroupsC t );; 

gap> Length ( maxorder ) ; 

57 

gap> autt:= CharacterTable ( "Q8+(3).S4" );; 
gap> fus:= PossibleClassFusionsC t, autt );; 

gap> orbreps:= Set( List( fus, map -> Set( ProjectionMapC map ) ) ) ); 

[ [ 1, 2, 5, 6, 7, 13, 17, 18, 19, 20, 23, 24, 27, 30, 31, 37, 43, 46, 50, 
54, 55, 56, 57, 58, 64, 68, 72, 75, 78, 84, 85, 89, 95, 96, 97, 100, 
106, 112 ] ] 

gap> totest:= IntersectionC majcorder, orbreps[l] ); 

[ 43, 50, 54, 56, 57, 64, 68, 75, 78, 84, 85, 89, 95, 97, 100, 106, 112 ] 

gap> Length ( totest ) ; 

17 

gap> AtlasClassNames ( t )■[ totest }; 

[ "6Q", "6X", "6B1", "8A", "8B", "9G", "9K", "12A", "12D", "12J", "12K", 
"120", "13A", "14A", "15A", "18A", "20A" ] 

This means that wc have to test one element of each of the element orders 13, 14, 15, and 18 (note 
that we know already a bound for elements of order 20), plus certain elements of the orders 6, 8, 9, 
and 12 which can be identified by their centralizer orders and (for elements of order 6 and 8) perhaps 
the centralizer orders of some powers. 

gap> elementstotest : = [] ; ; 

gap> for elord in [13, 14, 15, 18 ] do 



> repeat s:= Random ( g ); 

> until Order ( s ) = elord; 

> Add( elementstotest, s ); 

> od; 



The next elements to be tested axe in the classes 6B1 (centralizer order 162), in one of 9G-9J (central- 
izer order 729), in one of 9K-9N (centralizer order 81), in one of 12A-12C (centralizer order 1 728), in 
one of 12D-12I (centralizer order 432), in 12J (centralizer order 192), in one of 12K-12N (centralizer 
order 108), and in one of 120-12T (centralizer order 72). 

gap> ordcent:= [ [ 6, 162 ] , [ 9, 729 ] , [ 9, 81 ] , [ 12, 1728 ], 



> [ 12, 432 ], [ 12, 192 ], [ 12, 108 ] , [ 12, 72 ] ] ; ; 

> cents := SizesCentralizers ( t );; 
gap> for pair in ordcent do 

> Print ( pair, ": ", AtlasClassNames ( t ){ 

> Filtered ( [ 1 . . Length ( ord ) ] , 

> i -> ord[i] = pair[l] and cents[i] = pair[2] ) >, "\n" ); 

> repeat s:= Random ( g ); 

> until OrderC s ) = pair[l] and Size( CentralizerC g, s ) ) = pair [2] ; 

> Add( elementstotest, s ); 

> od; 



[6, 162 ]: [ "6B1" ] 

[ 9, 729 ]: [ "9G", "9H", "91", "9J" ] 
[ 9, 81 ] : [ "9K", "9L", "9M", "9N" ] 
[ 12, 1728 ]: [ "12A", "12B", "12C" ] 

[ 12, 432 ] : [ "12D", "12E", "12F", "12G", "12H", "121" ] 
[ 12, 192 ] : [ "12J" ] 

[ 12, 108 ] : [ "12K", "12L", "12M", "12N" ] 

[ 12, 72 ]: [ "120", "12P", "12Q", "12R", "12S", "12T" ] 

The next elements to be tested are in one of the classes 6Q-6S (centralizer order 648). 
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gap> AtlasClassNamesC t ){ FilteredC [ 1 .. LengthC ord ) ], 

> i -> cents [i] = 648 and cents [ PowerMapC t, 2 ) [i] ] = 52488 

> and cents[ PowerMapC t, 3 ) [i] ] = 26127360 ) }; 
[ "6Q", "6R", "6S" ] 

gap> repeat s:= Random ( g ); 

> until Order ( s ) = 6 and Size( CentralizerC g, s ) ) = 648 

> and SizeC CentralizerC g, s"2 ) ) = 52488 

> and SizeC CentralizerC g, s~3 ) ) = 26127360; 
gap> AddC elementstotest, s ); 

The next elements to be tested are in the class 6X-6A1 (centralizer order 648). 

gap> AtlasClassNamesC t ){ FilteredC [ 1 .. LengthC ord ) ], 

> i -> cents [i] = 648 and cents [ PowerMapC t, 2 ) [i] ] = 52488 

> and cents[ PowerMapC t, 3 )[i] ] = 331776 ) >; 
[ "6X", "6Y", "6Z", "6A1" ] 

gap> repeat s:= Random C g ); 

> until Order C s ) = 6 and SizeC CentralizerC g, s ) ) = 648 

> and SizeC CentralizerC g, s~2 ) ) = 52488 

> and SizeC CentralizerC g, s"3 ) ) = 331776; 
gap> AddC elementstotest, s ); 

Finally, we add elements from the classes 8A and 8B. 

gap> AtlasClassNamesC t ){ FilteredC [ 1 . . LengthC ord ) ] , 

> i -> ord[i] = 8 and cents[ PowerMapC t, 2 ) [i] ] = 13824 ) }; 
[ "8A" ] 

gap> repeat s:= RandomC g ); 

> until OrderC s ) = 8 and SizeC CentralizerC g, s~2 ) ) = 13824; 
gap> AddC elementstotest, s ); 

gap> AtlasClassNamesC t ){ FilteredC [ 1 .. LengthC ord ) ], 

> i -> ord[i] = 8 and cents[ PowerMapC t, 2 ) [i] ] = 1536 ) }; 
[ "8B" ] 

gap> repeat s:= RandomC g ); 

> until OrderC s ) = 8 and SizeC CentralizerC g, s*2 ) ) = 1536; 
gap> AddC elementstotest, s ); 

Now we compute the ratios. It turns out that from these candidates, only elements s of the orders 
14 and 15 satisfy P{g,s) < 194/455. 

gap> nongen:= ListC elementstotest, 

> s -> RatioOfNongenerationTransPermGroupC g, 3A, s ) );; 
gap> smaller:= PositionsProperty C nongen, x -> x < 194/455 ); 

[ 2, 3 ] 

gap> nongen{ smaller }; 
[ 127/325, 1453/3640 ] 

So the only candidates for s that may be better than order 20 elements are elements of order 14 or 
15. In order to exclude those two possibilities, we compute P{g, s) for s in the class 14A and g = 
in the class 2A, and for s in the class 15A and g in the class 2A, which yields values that are larger 
than 194/455. 

gap> repeat s:= RandomC g ); 

> until OrderC s ) = 14 and NrMovedPointsC s ) = 1078; 
gap> 2A:= s*7; ; 
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gap> nongen:= RatioOf NongenerationTransPermGroupC g, 2k, s ); 
1573/3645 

gap> nongen > 194/455; 
true 

gap> repeat s:= RandomC g ); 

> until Order ( s ) = 15 and NrMovedPointsC s ) = 1080 - 3; 
gap> nongen := RatioOf NongenerationTransPermGroupC g, 2A, s ); 

490/1053 

gap> nongen > 194/455; 
true 

For statement (d), we show that for each triple of elements in the union of the classes 2k, 3A, 3B, 3E 
there is an element in the class 20A that generates S together with each element of the triple. 

gap> for tup in UnorderedTuples ( [ 2A, 3A, 3B, 3E ] , 3 ) do 

> cl:= ShallowCopyC tup ); 

> test:= RandomCheckUnif ormSpreadC g, cl, 20A, 100 ); 

> if test <> true then 

> Error ( test ) ; 

> fi; 

> od; 

We get no error message, so statement (d) is true. 

For statement (e), first we show that 2.S = f2"'"(8, 3) contains elements of order 40 but S does not. 
gap> der:= DerivedSubgroup ( SO (1,8, 3) );; 

gap> repeat x:= PseudoRandom( der ); until 0rder( x ) = 40; 

gap> 40 in ord; 

false 

Thus elements of order 40 must arise as preimages of order 20 elements under the natural epimorphism 
from 2.5 to S, which means that we may choose an order 40 preimage s of s. Then M{2.S, s) consists 
of central extensions of the subgroups listed in statement (b). The perfect subgroups 07(3), L4{S), 
2. [74(3), and U4{2) of these groups must lift to their Schur double covers in 2.S because otherwise 

the preimages would not contain elements of order 40. 

Next wo consider the preimage of the subgroup U = {A4, x C/4(2)).2 of S. We show that the preimages 
of the two direct factors A4 and (74(2) in U' = A4, x 1/4(2) are Schur covers. For A4, this follows from 
the fact that the preimage of U' must contain elements of order 20, and that U4{2) does not contain 
elements of order 10. 

gap> u42:= CharacterTable ( "U4(2)" );; 

gap> FilteredC OrdersClassRepresentativesC u42 ), x -> x mod 5=0); 
[ 5 ] 

In order to show that the U4{2) type subgroup of U' lifts to its double cover in 2.S, we note that the 
class 2B of (74(2) lifts to a class of elements of order four in the double cover 2.(74(2), and that the 
corresponding class of elements in U is S-conjugate to the class of involutions in the direct factor A4 
(which is the unique class of length three in U) . 

gap> u:= CharacterTable ( Maxes ( t ) [18] ); 
CharacterTable ( " (A4xU4(2) ) :2" ) 

gap> 2u42:= CharacterTable ( "2.04(2)" );; 
gap> OrdersClassRepresentativesC 2u42 ) [4] ; 
4 

gap> GetFusionMapC 2u42, u42 ) [4] ; 
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3 

gap> OrdersClassRepresentativesC u42 ) [3] ; 
2 

gap> List( PossibleClassFusionsC u42, u ), x -> x[3] ); 
[ 8 ] 

gap> PositionsProperty ( SizesConjugacyClassesC u), x->x=3); 
[ 2 ] 

gap> ForAllC PossibleClassFusionsC u, t ) , x -> x[2] = x[8] ); 
true 

The last subgroup for which the structure of the preimage has to be shown is U = {Ae x Aq) : 2^. We 
claim that each of the Aq type subgroups in the derived subgroup U' = Aq x Aq lifts to its double 
cover in 2.S. Since all elements of order 20 in U lie in U' , at least one of the two direct factors must 
lift to its double cover, in order to give rise to an order 40 clement in U. In fact both factors lift to 
the double cover since the two direct factors are interchanged by conjugation in U ; the latter follows 
form tha fact that U has no normal subgroup of type Ae. 

gap> u:= CharacterTable ( Maxes ( t ) [24] ); 

Char act erTable( " (A6xA6) : 2-2" ) 

gap> ClassPositionsOf DerivedSubgroup ( u ); 

[1 .. 22 ] 

gap> PositionsProperty ( OrdersClassRepresentativesC u ) , x -> x = 20 ) ; 
[ 8 ] 

gap> ListC ClassPositionsOf NormalSubgroups C u ), 

> X -> SumC SizesConjugacyClassesC u )-[ x ]■ ) ); 
[ 1, 129600, 259200, 259200, 259200, 518400 ] 

So statement (e) holds. 

For statement (f), we have to consider the upward extensions 5.21, S.22, and S.3. 

First we look at 5.21 , an extension by an outer automorphism that acts as a double transposition 
in the outer automorphism group 84- Note that the symmetry between the three classes of element 
Oder 20 in S is broken in S.2i, two of these classes have square roots in yS.2i, the third has not. 

gap> t2:= CharacterTable C "08+C3).2_l" );; 

gap> ord20:= PositionsPropertyC OrdersClassRepresentativesC t2 ), 

> X -> X = 20 ) ; ; 

gap> ord20:= IntersectionC ord20, ClassPositionsOf DerivedSubgroupC t2 ) ) ; 

[ 84, 85, 86 ] 

gap> ListC ord20, x -> x in PowerMapC t2, 2 ) ); 
[ false, true, true ] 

Changing the viewpoint, we see that for each class of element order 20 in S, there is a group of the 
type S.2i in which the elements in this class do not have square roots, and there are groups of this 
typo in which these elements have square roots. So we have to deal with two different cases, and we 
do this by first collecting the permutation characters induced from all ma^ximal subgroups of 5.21 
(other than S) that contain elements of order 20 in S, and then considering s in each of these classes 
of S. 

We fix an embedding of S into 5.2i in which the elements in the class 20A do not have square roots. 
This situation is given for the stored class fusion between the tables in the GAP Character Table 
Library. 

gap> tfust2:= GetFusionMapC t, t2 );; 

gap> tfust2{ PositionsPropertyC OrdersClassRepresentativesC t ), 

> X -> X = 20 ) }; 
[ 84, 85, 86 ] 
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The six different actions of S on the cosets of 07(3) type subgroups induce pairwise different per- 
mutation characters that form an orbit under the action of Aut(S'). Four of these characters cannot 
extend to S.2i, the other two extend to permutation characters of 5.2i on the cosets of 07(8). 2 type 
subgroups; these subgroups contain 20A elements. 

gap> primt2:= [] ; ; 

gap> poss:= PossiblePermutationCharactersC CharacterTable ( "07(3)" ), t );; 
gap> invfus:= InverseMapC tfust2 );; 

gap> List( poss, pi -> ForAlK CompositionMaps ( pi, invfus ), Isint ) ); 
[ false, false, false, false, true, true ] 
gap> PossiblePermutationCharacters ( 

> CharacterTable ( "07(3)" ) * CharacterTable ( "Cyclic", 2 ) , t2 ) ; 
[ ] 

gap> ext:= PossiblePermutationCharactersC CharacterTable ( "07(3). 2" ), t2 );; 
gap> List ( ext , pi -> pi-[ ord20 } ) ; 
[[1,0,0], [1,0,0]] 
gap> Append ( primt2, ext ); 

The novelties in 5'.2i that arise from 07(8) type subgroups of 5* have the structure L4(3).2'^. These 
subgroups contain elements in the classes 20B and 20C of S. 

gap> ext:= PossiblePermutationCharactersC CharacterTable ( "L4(3).2~2" ), t2 );; 
gap> List ( ext , pi -> pi-[ ord20 } ) ; 
[ [ 0, 0, 1 ] , [0,1,0]] 
gap> Append ( primt2, ext ); 

Note that from the possible permutation characters of 5.2i on the cosets of L4(8) : 2 x 2 type sub- 
groups, we see that such subgroups must contain 20A elements, i. e., all such subgroups of S.2i lie in- 
side 07(3). 2 type subgroups. This means that the structure description of these novelties in [CCN^sHl 
p. 140] is not correct. The correct structure is L4(8).2^.) 

gap> List( PossiblePermutationCharactersC CharacterTable C "L4C3).2_2" ) * 

> CharacterTable ( "Cyclic", 2 ) , t2 ) , pi -> pi{ ord20 } ); 
[ [ 1, 0, ] ] 

All 8^ : -£4(3) type subgroups of S extend to 5.2i. We compute these permutation characters as the 
possible permutation characters of the right degree. 

gap> ext:= PermCharsC t2, rec( torso := [ 1120 ] ) );; 

gap> List ( ext , pi -> pi-[ ord20 } ) ; 

[ [ 2, 0, ] , [0,0,2], [0,2,0]] 

gap> Append ( primt2, ext ); 

Also all 2. 174 (8). 2^ type subgroups of S extend to 5.2i. We compute the permutation characters as 
the extensions of the corresponding permutation characters of S. 

gap> filt:= FilteredC prim, x -> x[l] = 189540 );; 

gap> cand:= List( filt, x -> CompositionMaps ( x, invfus ) );; 

gap> ext:= ConcatenationC ListC cand, 

> pi -> PermCharsC t2, recC torso := pi ) ) ) );; 
gap> List C ext , x -> x-[ ord20 }■ ) ; 

[[1,0,0], [0,1,0], [0,0,1]] 
gap> Append C primt2, ext ); 

The extensions of {A4, x (74(2)) : 2 type subgroups of S to 5.21 have the type 5*4 x (74(2) : 2, they 
contain 20A elements. 
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gap> ext:= PossiblePermutationCharacters ( CharacterTable( "Symmetric", 4 ) * 

> CharacterTableC "U4(2).2" ), t2 );; 
gap> List ( ext , x -> x-[ ord20 }■ ) ; 
[[1,0,0], [1,0,0]] 

gap> Append ( primt2, ext ); 

All (Ad X Ac) : 2^ type subgroups of S extend to S.2i. We compute the permutation characters as 
the extensions of the corresponding permutation characters of S. 

gap> filt:= FilteredC prim, x -> x[l] = 9552816 );; 

gap> caiid:= List( filt, x -> CompositionMaps ( x, InverseMapC tfust2 ) ));; 
gap> ext:= ConcatenationC List( cand, 

> pi -> PermCharsC t2, rec( torso := pi ) ) ) );; 
gap> List ( ext , x -> x-[ ord20 }■ ) ; 

[[1,0,0], [0,1,0], [0,0,1]] 
gap> Append ( primt2, ext ); 

We have found all relevant permutation characters of 5'.2i. This together with the list in [CCN^SSl 
p. 140] implies statement (g). 

Now we compute the bounds a'{S.2i, s). 

gap> Length ( primt2 ) ; 
15 

gap> approx:= List( ord20, x -> ApproxP( primt2, x ) );; 
gap> outer := Difference ( 

> PositionsProperty ( OrdersClassRepresentatives ( t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) );; 
gap> List( approx, 1 -> Maximum( 1{ outer } ) ); 
[ 574/1215, 83/567, 83/567 ] 

Next we look at 5*. 22, an extension by an outer automorphism that acts as a transposition in the outer 
automorphism group 5*4. Similar to the above situation, the symmetry between the three classes of 
element oder 20 in S is broken also in S.22: The first is a conjugacy class of S.22, the other two 
classes are fused in 5*. 22, 

gap> t2:= CharacterTableC "08+(3).2_2" );; 

gap> ord20:= PositionsProperty ( OrdersClassRepresentatives ( t2 ), 

> X -> X = 20 ) ; ; 

gap> ord20:= IntersectionC ord20, ClassPositionsDf DerivedSubgroupC t2 ) ) ; 
[ 82, 83 ] 

gap> tfust2:= GetFusionMapC t, t2 );; 

gap> tfust2-[ PositionsProperty ( OrdersClassRepresentatives ( t ), 

> X -> X = 20 ) }■; 
[82, 83, 83 ] 

Like in the case 5'.2i, we compute the permutation characters induced from all maximal subgroups 
of 5'.22 (other than S) that contain elements of order 20 in S. 

We fix the embedding of S into 5'.22 in which the class 20A of S is a class of 5'.22. This situation is 
given for the stored class fusion between the tables in the GAP Character Table Library. 

Exactly two classes of 07(3) type subgroups in S extend to 5.22, these groups contain 20A elements. 
gap> primt2:= [] ; ; 

gap> ext:= PermCharsC t2, rec( torso := [ 1080 ] ) );; 
gap> List ( ext , pi -> pi-[ ord20 } ) ; 
[[1,0], [1,0]] 
gap> Append ( primt2, ext ); 
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Only one class of 3^' : L4(3) type subgroups extends to 5.22. (Note that we need not consider the 
novelties of the type 3^"*"^ : (^^3(3) x 2), because the order of these groups is not divisible by 5.) 

gap> ext:= PermChars( t2, rec( torso := [ 1120 ] ) );; 
gap> List( ext. pi -> pi-[ ord20 } ); 
[ [ 2, ] ] 

gap> AppendC primt2, ext ); 

Only one class of 2. (74(3). 2^ type subgroups of S extends to 5.22. We compute the permutation 
character as the extension of the corresponding permutation characters of S. 

gap> filt:= FilteredC prim, x -> x[l] = 189540 );; 

gap> caiid:= List( filt, x -> CompositionMaps ( x, InverseMapC tfust2 ) ));; 
gap> ext:= ConcatenationC List( cand, 

> pi -> PermCharsC t2, rec( torso := pi ) ) ) );; 
gap> List ( ext , x -> x{ ord20 } ) ; 

[[1,0]] 

gap> AppendC primt2, ext ); 
Two classes of {A4 x (74(2)) : 2 type subgroups of S extend to S.22. 
gap> filt:= FilteredC prim, x -> x[l] = 7960680 );; 

gap> caiid:= ListC filt, x -> CompositionMaps C x, InverseMapC tfust2 ) ));; 
gap> ext:= ConcatenationC ListC cand, 

> pi -> PermCharsC t2, recC torso := pi ) ) ) );; 
gap> ListC ext, x -> x{ ord20 }■ ); 

[ [ 1, ], [ 1, ] ] 
gap> AppendC primt2, ext ); 

Exactly one class of {Aq x Aq) : 2^ type subgroups in S extends to 5.22, and the extensions have the 
structure Sel'2. 

gap> ext:= PossiblePermutationCharactersC CharacterTableWreathSymmetric C 

> CharacterTableC "S6" ), 2 ), t2 );; 
gap> ListC ext, x -> x{ ord20 ]■ ); 

[ [ 1, ] ] 

gap> AppendC primt2, ext ); 

We have found all relevant permutation characters of 5.22, and compute the bounds a' {S.22, s). 

gap> Length C primt2 ) ; 
7 

gap> approx:= ListC ord20, x -> ApproxPC primt2, x ) );; 
gap> outer := Difference C 

> PositionsProperty C OrdersClassRepresentativesC t2 ), IsPrimeInt ), 

> ClassPositionsOf DerivedSubgroupC t2 ) ) ; ; 
gap> ListC approx, 1 -> MaximumC 1{ outer } ) ); 
[ 14/9, ] 

This means that there is an extension of the type 5.22 in which s cannot be chosen such that the 
bound is less than 1/2. More precisely, we have a{g,s) > 1/2 exactly for g in the unique outer 
involution class of size 1 080. 
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gap> approx:= ApproxP( primt2, ord20[l] );; 

gap> bad:= Filtered( outer, i -> approx[i] >= 1/2 ); 

[ 84 ] 

gap> OrdersClassRepresentatives ( t2 ){ bad }■; 
[ 2 ] 

gap> SizesConjugacyClasses ( t2 ){ bad }■; 
[ 1080 ] 

gap> NumberC SizesConjugacyClasses ( t2 ) , x -> x = 1080 ); 
1 

So we compute the proportion of elements in this class that generate S.22 together with an element 
s of order 20 in S. (As above, we have to consider two conjugacy classes.) For that, we first compute 
a permutation representation of S.22, using that S.22 is isomporphic to the two subgroups of index 2 
in PGO+(8,3) = Oj(3).2f22 that are different from PSO+(8,3) = Of(3).2i, cf. [CCN+85l p. 140]. 

gap> go:= G0(l,8,3) ; ; 
gap> so:= S0(l,8,3) ; ; 

gap> outerelm:= First ( GeneratorsOf Group ( go ) , x -> not x in so ) ; ; 
gap> g2:= ClosureGroupC DerivedSubgroup ( so ), outerelm );; 
gap> Size( g2 ) ; 
19808719257600 

gap> dom:= NormedVectors ( GF(3)"8 );; 
gap> orbs:= Orbits( g2, dom, OnLines );; 
gap> List( orbs, Length ); 
[ 1080, 1080, 1120 ] 

gap> act:= Action( g2, orbs[l], OnLines );; 

An involution g can be found as a power of one of the given generators. 

gap> Order ( outerelm ) ; 
26 

gap> g:= PermutationC outerelm" 13, orbs[l], OnLines );; 

gap> Size( ConjugacyClass( act, g ) ); 

1080 

Now we find the candidates for the elements s, and compute their ratios of nongeneration. 

gap> ord20 ; 
[ 82, 83 ] 

gap> SizesCentralizersC t2 ){ ord20 }; 
[ 40, 20 ] 

gap> der : = DerivedSubgroup ( act ) ; ; 
gap> repeat 20A:= Random( der ); 

> until Order ( 20A ) = 20 and Size( Centralizer( act, 20A ) ) =40; 
gap> RatioOf NongenerationTransPermGroupC act, g, 20A ); 

1 

gap> repeat 20BC:= Random( der ); 

> until Order ( 20BC ) = 20 and Size( Centralizer( act, 20BC ) ) =20; 
gap> RatioOf NongenerationTransPermGroupC act, g, 20BC ); 



This means that for s in one S-class of elements of order 20, we have P'{g,s) — 1, and s in the other 
two S-classes of elements of order 20 generates with any conjugate of g. 

Concerning 5.22, it remains to show that we cannot find a better element than s. For that, we first 
compute class representatives s' in S, w.r.t. conjugacy in 5.22, and then compute P'{s',g). (It would 
be enough to check representatives of classes of maximal element order, but computing all classes is 
easy enough.) 
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gap> ccl:= ConjugacyClasses ( act );; 
gap> der : = DerivedSubgroup ( act ) ; ; 

gap> reps:= Filtered( List( ccl. Representative ), x -> x in der );; 

gap> Length ( reps ) ; 

83 

gap> ratios := List( reps, 

> s -> RatioOfNongenerationTransPermGroupC act, g, s ) );; 
gap> cand:= PositionsProperty ( ratios, x -> x < 1 ) ; ; 

gap> ratios:= ratios{ cand }■; ; 
gap> SortParallel ( ratios, cand ); 
gap> ratios; 

[ 0, 1/10, 1/10, 16/135, 1/3, 1/3, 11/27, 7/15, 7/15 ] 

For S.22, it remains to show that there is no element s' £ S such that P'{s'^,g) < 1 holds for any 
X G Aut(5') and g £ S.22. So we are done when we can show that each class given by cand is conjugate 
in S.3 to a class outside cand. The classes can be identified by element orders and centralizer orders. 

gap> invs:= List( cand, 

> X -> [ Order ( reps [x] ), Size( Centralizer ( der, reps [x] ) ) ] ); 

[ [ 20, 20 ], [ 18, 108 ] , [ 18, 108 ] , [ 14, 28 ] , [ 15, 45 ] , [ 15, 45 ], 
[ 10, 40 ] , [ 12, 72 ] , [ 12, 72 ] ] 

Namely, cand contains no full S.S-orbit of classes of the element orders 20, 18, 14, 15, and 10; also, 
cand does not contain full S.S-orbits on the classes 12D-12T. 

Finally, we deal with S.3. The fact that no maximal subgroup of S cont aining an e lement of order 20 
extends to 5*. 3 follows either from the list of maximal subgroups of 5" in [CCN+851 p. 140] or directly 
from the permutation characters. 

gap> t3:= CharacterTableC "08+(3).3" );; 
gap> tfust3:= GetFusionMapC t, t3 );; 
gap> inv:= InverseMapC tfustS );; 

gap> filt:= PositionsProperty ( prim, x -> x[ spos ] <> );; 
gap> ForAlK prim{ filt }, 

> pi -> ForAnyC CompositionMaps ( pi, inv ), IsList ) ); 
true 

So we have to consider on ly the cla sses of novelties in 5.3, but the order of none of these groups is 
divisible by 20 -again see |CCN^85l p. 140]). This means that any element in S.3 \ S together with 
an element of order 20 in S generates S.3. This is in fact stronger than statement (f), which claims 
this property only for elements of prime order in S.3 \ S (and their roots); note that S.3 \ S contains 
elements of the orders 9 and 27. 

gap> outer:= Difference( [ 1 .. NrConjugacyClasses( t3 ) ] , 

> ClassPositionsOf DerivedSubgroup ( t3 ) ) ; 

[ 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 
72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 
91, 92, 93, 94 ] 

gap> Set( OrdersClassRepresentatives ( t3 ){ outer } ); 

[ 3, 6, 9, 12, 18, 21, 24, 27, 36, 39 ] 

Before we turn to the next computations, we clean the workspace. 
gap> CleanWorkspace ; 
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5.14 08+(4) 

We show that S ^ (4) = f2+ (8, 4) satisfies the following. 

(a) For suitable s G S of the type 2~ 1. 6^ (i. e., s decomposes the natural 8-dimensional module 
for S into an orthogonal sum of two irreducible modules of the dimensions 2 and 6, respectively) 
and of order 65, Mi{S, s) consists of exactly three pairwise nonconjugate subgroups of the type 
(5 X 0^(4)).2 = (5 X n~(6,4)).2. 

(b) a{S,s) < 34 817/1645 056. 

(c) In the extensions 5.21 and 5.3 of S by graph automorphisms, there is at most one maximal 
subgroup besides S that contains s. For the extension 5.22 of S by a field automorphism, 
we have a'{S.22,s) — 0. In the extension 5.23 of S by the product of an involutory graph 
automorphism and a field automorphism, there is a unique maximal subgroup besides S that 
contains s. 

A safe source for determining A4{S, s) is [Kle87) . By inspection of the result matrix in this paper, we 
get that the only maximal subgroups of S that contain elements of order 65 occur in the rows 9-14 
and 23-25; they have the isomorphism types 5*6(4) = Sp(6, 4) ^ C>7(4) = 0(7, 4) and (5 x (4)). 2 = 
(5 X n~(6, 4)). 2, respectively, and for each of these, there are three conjugacy classes of subgroups in 
S, which are conjugate under the triality graph automorphism of S. 

We start with the natural matrix representation of S. For convenience, we compute an isomorphic 
permutation group on 5 525 points. 

gap> q:= 4;; n:= 8;; 

gap> G : = DerivedSubgroup ( S0( 1, n, q) );; 
gap> points:= NormedRowVectors ( GF(q)~n );; 
gap> orbs:= Orbits ( G, points, OnLines );; 
gap> List( orbs. Length ); 
[ 5525, 16320 ] 

gap> hom:= ActionHomomorphism( G, orbs [1] , OnLines );; 
gap> G : = Image ( horn ) ; ; 

The group S contains exactly six conjugacy classes of (cyclic) subgroups of order 65; this follows from 
the fact that the centralizer of any Sylow 13 subgroup in S has the structure 5 x 5 x 13. 

gap> CollectedC Factors( Size( G ) ) ); 

[ [ 2, 24 ], [ 3, 5 ], [ 5, 4 ], [ 7, 1 ], [ 13, 1 ], [ 17, 2 ] ] 
gap> ResetGlobalRandomNumberGenerators ; 
gap> repeat x:= Random ( G ); 

> until Order ( x ) mod 13 = 0; 
gap> x:= x"( Order ( x ) / 13 ) ; ; 
gap> c:= Centralizer ( G, x );; 

gap> IsAbelianC c ); Abelianlnvariants ( c ); 
true 

[ 5, 5, 13 ] 

The group 56(4) contains exactly one class of subgroups of order 65, since the conjugacy classes of 
elements of order 65 in 56(4) are algebraically conjugate. 

gap> t:= CharacterTableC "S6(4)" );; 

gap> ord65:= PositionsProperty ( OrdersClassRepresentatives ( t ), 

> x -> x = 65 ) ; 
[ 105, 106, 107, 108, 109, 110, 111, 112 ] 
gap> ord65 = ClassOrbit( t, ord65[l] ); 

true 
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Thus there are at least three classes of order 65 elements in S that are not contained in Seii) type 
subgroups of S. So we choose such an element s, and have to consider only overgroups of the type 
(5 X J7-(6,4)).2. 

The group S7~(6, 4) = (74(4) contains exactly one class of subgroups of order 65. 

gap> t:= CharacterTableC "U4(4)" );; 

gap> ords:= OrdersClassRepresentatives ( t );; 

gap> ord65:= PositionsProperty ( ords, x -> x = 65 ) ; ; 

gap> ord65 = ClassDrbitC t, ord65[l] ); 

true 

So 5 X f2~(6, 4) contains exactly six such classes. Furthermore, subgroups in different classes are not 
S'-conjugate. 

gap> syl5:= SylowSubgroupC c, 5 );; 

gap> elms:= Filtered( Elements( syl5 ) , y -> Order( y ) = 5 );; 

gap> reps:= Set( List( elms, SmallestGeneratorPerm ) );; Length( reps ); 

6 

gap> reps65:= List( reps, y -> SubgroupNC( G, [y*x] ) );; 
gap> pairs:= Filtered( UnorderedTuples( [1 .. 6 ], 2 ), 
> p -> p[l] <> p[2] ) ; ; 

gap> ForAnyC pairs, p -> IsConjugate( G, reps65 [ p[l] ], reps65 [ p [2] ] ) ); 
false 

We consider only subgroups M < S in the three 5-classes of the type (5 x r2~(6, 4)). 2. 

gap> cand:= List( reps, y -> Normalizer( G, SubgroupNC( G, [ y ] ) ) );; 
gap> cand:= Filtered( cand, y -> Size( y ) = 10 * Size( t ) );; 
gap> Length ( cand ) ; 
3 

(Note that one of the members in Ai{S,s) is the stabilizer in S of the orthogonal decomposition 
2~ -L 6~, the other two members are not reducible.) 

By the above, the classes of subgroups of order 65 in each such M are in bijection with the corre- 
sponding classes in S. Since Ns{{g)) C M holds for any g £ M of order 65, also the conjugacy classes 
of elements of order 65 in M are in bijection with those in S. 

gap> norms:= List( reps65, y -> Normalizer( G, y ) );; 

gap> ForAlK norms, y -> ForAlK cand, M -> IsSubset( M, y ) ) ) ; 

true 

As a consequence, we have f] AI — g'^' and thus iff (g) — 1. This implies statement (a). 

In order to show statement (b), we want to use the function UpperBoundFixedPointRatios introduced 
in Section [3.31 For that, we first compute the conjugacy classes of the three class representatives M. 
(Since the groups have elementary abelian Sylow 5 subgroups of the order 5'', computing all conjugacy 
classes appears to be faster than using ClassesOf PrimeDrder.) Then we compute an upper bounds 
for <j{S, s). 

gap> syl5:= SylowSubgroupC cand[l] , 5 );; 

gap> Size( syl5 ); IsElementaryAbelianC syl5 ); 

625 

true 

gap> UpperBoundFixedPointRatios ( G, List( cand, ConjugacyClasses ), false ); 
[ 34817/1645056, false ] 
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Remark 5.1 Computing the exact value a{S,s) in the above setup would require to test the 5*- 
conjugacy of certain order 5 elements in M. With the current GAP implementation, some of the 
relevant tests need several hours of CPU time. 

An alternative approach would be to compute the permutation action of S on the cosets of AI, of 
degree 6 580 224, and to count the fixed points of conjugacy class representatives of prime order. The 
currently available GAP library methods are not sufficient for computing this in reasonable time. 
"Ad-hoc code" for this special case works, but it seemed to be not appropriate to include it here. 

In the proof of statement (c), again we consult the result matrix in |Kle87j . For S.3, the maximal 
subgroups are in the rows 4, 15, 22, 26, and 61. Only row 26 yields subgroups that contain elements s 
of order 65, they have the isomorphism type (5 x GU(3, 4)). 2 = (5^ x (73(4)).2. Note that the conjugacy 
classes of the members in A4{S,s) are permuted by the outer automorphism of order 3, so none of 
the subgroups in A^(5', s) extends to S.3. By 'BGK[ Lemma 2.4 (2)], if there is a maximal subgroup 
of S.3 besides S that contains s then this subgroup is the normalizer in S.3 of the intersection of the 
three members of M{S, s), i. e., s is contained in at most one such subgroup. 

For 5.2i, only the rows 9 and 23 yield maximal subgroups containing elements of order 65, and since 
we had chosen s in such a way that row 9 was excluded already for the simple group, only extensions 
of the elements in A4{S,s) can appear. Exactly one of these three subgroups of S extends to S.2i, 
so again we get just one maximal subgroup of S.2i, besides S, that contains s. 

All subgroups in A4{S,s) extend to S.22, see [Kle87] . We compute the extensions of the above 
subgroups M of S to 5.22, by constructing the action of the field automorphism in the permutation 
representation we used for S. In other words, we compute the projective action of the Frobenius map. 

gap> frob:= PermList( List( orbs[l], v -> Position( orbs [1] , 

> List( V, X -> x~2 ))));; 
gap> G2:= ClosureGroupDef ault ( G, frob );; 

gap> caiid2:= List( cand, M -> Normalizer ( G2, M ) );; 
gap> ccl:= List( caiid2, 

> M2 -> PcConjugacyClassRepsC SylowSubgroup ( M2, 2 ) ) );; 
gap> List( ccl, 1 -> Number ( 1, x -> Order ( x ) = 2 and not x in G ) ); 

[ 0, 0, ] 

So in each case, the extension of Af to its normalizer in 5.22 is non-split. This implies ct'(S'.22, s) — 0. 

Finally, in the extension of 5* by the product of a graph automorphism and the field automorphism, 
exactly that member of Ai{S,s) is invariant that is invariant under the graph automorphism, hence 
statement (c) holds. 

It is again time to clean the workspace. 
gap> CleanWorkspace () ; 

5.15 * 09(3) 

The group 5* — 09(3) — flg{3) is the first member in the series dealt with in [BGKI Proposition 5.7], 
and serves as an example to illustrate this statement. 

(a) For s £ 5* of the type 1 ± 8~ (i. e., s decomposes the natural 9-dimensional module for S into 
an orthogonal sum of two irreducible modules of the dimensions 1 and 8, respectively) and of 
order {3'^ + l)/2 = 41, M{S,s) consists of one group of the type 0^(3).2i = PG0~(8, 3). 

(b) a{S,s) = 1/3. 

(c) The uniform spread of S is at least three, with s of order 41. 
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By |MSW94] . the only maximal subgroup of S that contains s is the stabilizer M of the orthogonal 
decomposition. The group 2 x 0^(3).2i = GO~(8, 3) embeds naturally into SO(9,3), its intersection 
with S is PGO~(8,3). This proves statement (a). 

The group M is the stabilizer of a 1-space, it has index 3 240 in S. 

gap> g:= S0( 9, 3 ) ; ; 

gap> g:= DerivedSubgroup ( g ) ; ; 

gap> Size ( g ) ; 

65784756654489600 

gap> orbs:= Orbits ( g, NormedRowVectors ( GF(3)~9 ), OnLines );; 
gap> List ( orbs , Length ) / 41 ; 
[ 3240/41, 81, 80 ] 

gap> Size( S0( 9, 3 ) ) / Size( G0( -1, 8, 3 ) ); 
3240 

So we compute the unique transitive permutation character of 5* that has degree 3 240. 

gap> t:= CharacterTableC "09(3)" );; 

gap> pi:= PermCharsC t, rec( torso := [ 3240 ] ) ); 

[ Character ( CharacterTableC "09(3)" ), [ 3240, 1080, 380, 132, 48, 324, 378, 
351, 0, 0, 54, 27, 54, 27, 0, 118, 0, 36, 46, 18, 12, 2, 8, 45, 0, 108, 
108, 135, 126, 0, 0, 56, 0, 0, 36, 47, 38, 27, 39, 36, 24, 12, 18, 18, 
15, 24, 2, 18, 15, 9, 0, 0, 0, 2, 0, 18, 11, 3, 9, 6, 6, 9, 6, 3, 6, 3, 
0, 6, 16, 0, 4, 6, 2, 45, 36, 0, 0, 0, 0, 0, 0, 0, 9, 9, 6, 3, 0, 0, 
15, 13, 0, 5, 7, 36, 0, 10, 0, 10, 19, 6, 15, 0, 0, 0, 0, 12, 3, 10, 0, 
3, 3, 7, 0, 6, 6, 2, 8, 0, 4, 0, 2, 0, 1, 3, 0, 0, 3, 0, 3, 2, 2, 3, 3, 
6, 2, 2, 9, 6, 3, 0, 0, 18, 9, 0, 0, 12, 0, 0, 8, 0, 6, 9, 5, 0, 0, 0, 

0, 0, 0, 0, 0, 3, 3, 3, 2, 1, 3, 3, 1, 0, 0, 4, 1, 0, 0, 1, 0, 3, 3, 1, 

1, 2, 2, 0, 0, 1, 3, 4, 0, 1, 2, 0, 0, 1, 0, 4, 1, 0, 0, 0, 0, 1, 0, 0, 
1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, ] ) ] 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 41 ); 
208 

gap> approx:= ApproxP( pi, spos );; 

gap> Maximum ( approx ) ; 

1/3 

gap> PositionsProperty ( approx, x -> x = 1/3 ); 
[ 2 ] 

gap> SizesConjugacyClasses ( t ) [2] ; 
3321 

gap> OrdersClassRepresentatives ( t ) [2] ; 
2 

We see that P{S,s) = a{S,s) = 1/3 holds, and that a{g,s) attains this maximum only for g in one 
class of involutions in S; let us call this class 2k. (This class consists of the negatives of a class of 
reflections in GO(9,3).) This shows statement (b). 

In order to show that the uniform spread of S is at least three, it suffices to show that for each triple 
of 2A elements, there is an element s of order 41 in S that generates S with each element of the triple. 

We work with the primitive permutation representation of S on 3 240 points. In this representation, 
s fixes exactly one point, and by statement (a), s generates S with x £ S if and only if x moves this 
point. Since the number of fixed points of each 2A involution in S is exactly one third of the moved 
points of S, it suffices to show that we cannot choose three such involutions with mutually disjoint 
fixed point sets. And this is shown particularly easily because it will turn out that already for any 
two different 2 A involutions, the sets of fixed points of are never disjoint. 

First we compute a 2A element, which is determined as an involution with exactly 1 080 fixed points. 
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gap> g:= ActionC g, orbs[l], OnLines );; 
gap> repeat 

> repeat x:= RandomC g ); ord:= Qrder( x ); until ord mod 2=0; 

> y:= x~(ord/2) ; 

> until NrMovedPointsC y ) = 3240 - 1080; 

Next we compute the sets of fixed points of the elements in the class 2A, by forming the S-orbit of 
the set of fixed points of the chosen 2A element. 

gap> fp:= DifferenceC MovedPoints( g ), MovedPointsC y ) );; 
gap> orb:= Orbit ( g, fp, OnSets );; 

Finally, we show that for any pair of 2A elements, their sets of fixed points intersect nontrivially. (Of 
course we can fix one of the two elements.) This proves statement (c). 

gap> ForAnyC orb, 1 -> IsEmptyC Intersection( 1, fp ) ) ); 
false 

5.16 Oro(3) 

We show that the group S — Oj^(3) — PQ^ (10,3) satisfies the following. 

(a) For s G 5" irreducible of order (3^ + l)/2 = 122, M{S,s) consists of one subgroup of the type 
SU(5,3) ^ C/5(3). 

(b) a{S,s) = 1/1066. 

By [BerOO) . the maximal subgroups of S containing s are of extension field type, and by [KL90I 
Prop. 4.3.18 and 4.3.20], these groups have the structure SU(5, 3) = 1/5(3) (which lift to 2 x 1/5(3) < 
GU(5, 3) in n~(10, 3) = 2.5) or $1(5, 9). 2, but the order of the latter group is not divisible by 
Furthermore, by [BGKI Lemma 2.12 (b)], s is contained in only one member of the former class. 

gap> Size( GO (5, 9) ) / 122; 
3443212800/61 

The character tables of both S and ?75(3) are currently not contained in the GAP Character Table 
Library, so we work with the groups. 

gap> CharacterTableC "010-(3)" ); CharacterTable ( "U5(3)" ); 

fail 

fail 

The first step is the construction of the embedding of Af = SU(5, 3) into the matrix group 2.5, that 
is, we write the matrix generators of M as linear mappings on the natural module for 2.5, and then 
conjugate them such that the result matrices respect the bilinear form of 2.5. For convenience, we 
choose a basis for the field extension F9/F3 such that the Fs-linear mapping given by the invariant 
form of M is invariant under the Fa-linear mappings given by the generators of M. 

gap> m:= SU(5,3) ; ; 

gap> so:= SO (-1,10, 3) ; ; 

gap> omega:= DerivedSubgroup ( so ) ; ; 

gap> om:= InvariantBilinearFormC so ). matrix;; 

gap> Display ( om ) ; 

.1 

1 

. . 1 
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... 2 

.... 2 

2 . . . . 

2 . . . 

2 . . 

2 . 

2 

gap> b:= BasisC GF(9) , [ Z(3)-0, Z(3~2)-2 ] ); 
BasisC GF(3"2), [ Z(3)'0, Z(3-2)-2 ] ) 

gap> blow:= List( GeneratorsOf Group ( m ) , x -> BlownUpMatC b, x ) );; 
gap> form:= BlownUpMatC b, InvariantSesquilinearFormC m ) .matrix );; 
gap> ForAlK blow, x -> x * form * TransposedMat ( x ) = form ); 
true 

gap> DisplayC form ); 

1 . 

1 

1 . . . 

1 . . 

.... 1 

1 . . . . 

. . 1 

... 1 

1 

.1 

The matrix om of the invariant biUnear form of 2.S is equivalent to the identity matrix I. So we 
compute matrices Tl and T2 that transform om and form, respectively, to ±7. 

gap> Tl:= IdentityMatC 10, GF(3) );; 

gap> T1{[1. .3]K[1. .3]>:= [ [1 . 1 ,0] , [1 .-1 , 1] , [1 ,-1 .-1] ] *Z(3) "0; ; 

gap> pi:= PermutationMatC (1,10) (3,8), 10, GF(3) );; 

gap> tr:= NullMat( 10,10,GF(3) );; 

gap> tr{[l, 2]H[1, 2]}-:= [ [1 , 1] , [1 , -1] ] *Z(3) "0; ; 

gap> tr{[3, 4]>{[3, 4]>:= [ [1 , 1] , [1 , -1] ] *Z(3) "0; ; 

gap> tr{[7, 8]K[7. 8]}:= [ [1 . 1] , [1 .-1]] *Z(3) "0; ; 

gap> tr{[9,10]K[9,10]}:= [ [1 , 1] , [1 , -1]] *Z(3) "0; ; 

gap> tr{[5, 6]}-{[5, 6]}-:= [ [1 , 0] , [0 , 1] ] *Z(3) "0; ; 

gap> tr2:= IdentityMatC 10,GF(3) );; 

gap> tr2-[[1.3]H[l,3]}:= [[-1.1] , [l,l]]*Z(3)-0; ; 

gap> tr2-[[7,9]H[7,9]}:= [[-1.1] , [l,l]]*Z(3)-0; ; 

gap> T2 : = tr2 * tr * pi ; ; 

gap> D:= Tl~-1 * T2; ; 

gap> tblow:= List( blow, x -> D * x * D"-l );; 

gap> IsSubsetC omega, tblow ); 

true 

Now we switch to a permutation representation of S, and use the embedding of M into 2.5 to obtain 
the corresponding subgroup of type M in S. Then we compute an upper bound for max{/L((fl, S/M);g £ 

gap> orbs:= OrbitsC omega, NormedRowVectors( GF(3)"10 ), OnLines );; 

gap> List ( orbs , Length ) ; 
[ 9882, 9882, 9760 ] 

gap> permgrp:= ActionC omega, orbs [3], OnLines );; 
gap> M:= SubgroupNC( permgrp. 
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> List( tblow, X -> PermutationC x, orbs [3] , OnLines ) ) );; 
gap> ccl:= ClassesOfPrimeOrder ( M, Set( Factors ( Size( M ) ) ), 

> TrivialSubgroupC M ) );; 
gap> UpperBoundFixedPointRatios ( permgrp, [ ccl ], false ); 
[ 1/1066, true ] 

The entry true in the second position of the result indicates that in fact the exact value for the 
maximum of fi{g,S/M) has been computed. This implies statement (b). 

We clean the workspace. 

gap> CleanWorkspace ; 

5.17 01-4(2) 

We show that the group 5* = 0^4(2) — fi^ (14, 2) satisfies the following. 

(a) For s E S irreducible of order 2^ + 1 = 129, M{S,s) consists of one subgroup M of the type 
GU(7,2) 5^ 3 X (77(2). 

(b) aiS,s) = 1/2 015. 

By |BerOO) . any maximal subgroup of 5* containing s is of extension field type, and by [KL90I Ta- 
ble 3.5.F, Prop. 4.3.18], these groups have the type GU(7, 2), and there is exactly one class of sub- 
groups of this type. Furthermore, by [BGKI Lemma 2.12 (a)], s is contained in only one member of 
this class. 

We embed U7{2) into 5", by first replacing each element in F4 by the 2x2 matrix of the induced 
F2-linear mapping w.r.t. a suitable basis, and then conjugating the images of the generators such that 
the invariant quadratic form of S is respected. 

gap> 0:= S0(-l,14,2) ; ; 

gap> g:= SU(7,2);; 

gap> b:= BasisC GF(4) );; 

gap> blow:= List( GeneratorsOf Group ( g ), x -> BlownUpMat( b, x ) );; 
gap> form:= NullMat( 14, 14, GF(2) );; 

gap> for i in [ 1 . . 14 ] do form[i][ 15-i ]:= Z(2) ; od; 

gap> For All ( blow, x -> x * form * TransposedMat ( x ) = form ); 

true 

gap> pi:= PermutationMatC (1 , 13) (3 , 11) (5 ,9) , 14, GF(2) );; 

gap> pi * form * TransposedMat ( pi ) = InvariantBilinearFormC o ) .matrix; 

true 

gap> pi2:= PermutationMatC (7,3) (8,4), 14, GF(2) );; 
gap> D:= pi2 * pi;; 

gap> tblow:= List( blow, x -> D * x * D~-l );; 

gap> IsSubset( o, tblow ); 

true 

Note that the central subgroup of order three in GU(7, 2) consists of scalar matrices. 

gap> omega := DerivedSubgroup ( o );; 
gap> IsSubset( omega, tblow ); 
true 

gap> z:= Z(4) * One( g );; 

gap> tz:= D * BlownUpMat( b, z ) * D~-l;; 

gap> tz in omega; 

true 
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Now we switch to a permutation representation of S, and compute the conjugacy classes of prime 
element order in the subgroup M. The latter is done in two steps, first class representatives of the 
simple subgroup (77(2) of M are computed, and then they are multiplied with the scalars in M. 

gap> orbs:= Orbits( omega, NormedVectors ( GF(2)~14 ), OnLines );; 
gap> List( orbs, Length ); 
[ 8127, 8256 ] 

gap> omega:= Action( omega, orbs[l], OnLines );; 
gap> gens:= List( GeneratorsOf Group ( g ), 

> X -> PermutationC D * BlownUpMat( b, x ) * D'-l, orbs[l] ) );; 
gap> g : = Group ( gens ) ; ; 

gap> ccl:= ClassesOfPrimeOrder ( g, Set( Factors( Size( g ) ) ), 

> TrivialSubgroupC g ) );; 
gap> tz:= PermutationC tz, orbs[l] );; 

gap> primereps:= List( ccl. Representative );; 
gap> Add( primereps, () ); 

gap> reps:= Concatenation( List( primereps, 

> X -> List( [0 .. 2 ], i -> X * tz~i ) ) );; 

gap> primereps:= Filtered( reps, x -> IsPrimelntC Order( x ) ) );; 

gap> Length ( primereps ) ; 

48 

Finally, we apply UpperBoundFixedPointRatios (see Section 13. 3p to compute an upper bound for 
f,{g,S/M),ior geS\ 

gap> M:= ClosureGroupC g, tz );; 

gap> bccl:= List( primereps, x -> ConjugacyClass( M, x ) );; 
gap> UpperBoundFixedPointRatios ( omega, [ bccl ], false ); 
[ 1/2015, true ] 

Although some of the classes of AI in the list bccl may be S-conjugate, the entry true in the second 
position of the result indicates that in fact the exact value for the maximum of fi{g, S/AI), for g G 5*^ , 
has been computed. This implies statement (b). 

We clean the workspace. 

gap> CleanWorkspace ; 

5.18 0+(3) 

We show that the group S — 0^2(3) ~ Pf2^(12, 3) satisfies the following. 

(a) S has a maximal subgroup M of the type Ai's(Pr2^(6, 9)), which has the structure PQ'^ (6, 9). [4]. 

(b) fi{g, S/M) < 2/88 209 holds for all g € S"" . 

(This result is used in the proof of [BGKI Proposition 5.14], where it is shown that for s £ S of order 
205, M{S,s) consists of one reducible subgroup Gg and at most two extension field type subgroups 
of the type iVs(Pn+(6, 9)). By [GKOOl Proposition 3.16], ^{g,S/Gs) < 19/3^ holds for all g £ S"" . 
This implies P{g,s) < 19/3^^ + 2 • 2/88 209 = 6 901/88 209 < 1/3.) 

Statement (a) follows from [KL90I Prop. 4.3.14]. 

For statement (b), we embed GO+(6, 9) ?^ ^+(6, 9).2^ into SO+(12, 3) = 2.5'.2, by replacing each 
element in Fg by the 2x2 matrix of the induced Fa-linear mapping w.r.t. a suitable basis (61,62). 
We choose a basis with the property 61 = 1 and 6| = 1 + 62, because then the image of a symmetric 
matrix is again symmetric (so the image of the invariant form is an invariant form for the image of 
the group), and apply an appropriate transformation to the images of the generators. 
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gap> so:= S0(+l,12,3) ; ; 

gap> DisplayC InvariantBilinearFormC so ) .matrix ); 

.1 

1 

. . 1 

... 2 

.... 2 

2 

2 

2 . . . . 

2 . . . 

2 . . 

2 . 

2 

gap> g:= G0(+1.6,9); ; 

gap> Z(9)-2 = Z(3)-0 + Z(9); 

true 

gap> b:= BasisC GF(9) , [ Z(3)-0, Z(9) ] ); 
BasisC GF(3-2), [ Z(3)-0, Z(3-2) ] ) 

gap> blow:= List( GeneratorsOf Group ( g ), x -> BlownUpMatC b, x ) );; 
gap> m:= BlownUpMatC b, InvariantBilinearFormC g ) .matrix );; 
gap> DisplayC m ); 

. . 1 

... 1 

1 

.1 

.... 2 

2 

2 

2 . . . . 

2 . . . 

2 . . 

2 . 

2 

gap> pi:= PermutationMatC C2,3), 12, GFC3) );; 
gap> tr:= IdentityMatC 12, GFC3) );; 
gap> tr{[3,4]K[3,4]>:= [ [1 .-1] . [1 , 1]] *ZC3) "0; ; 
gap> D : = tr * pi ; ; 

gap> D * m * TransposedMat C D ) = InvariantBilinearFormC so ) .matrix; 

true 

gap> tblow:= ListC blow, x -> D * x * D'-l );; 

gap> IsSubsetC so, tblow ); 

true 

The image of GO+(6, 9) under the embedding into SO+(12, 3) does not ho in ^+(12, 3) = 2.5, so a 
factor of two is missing in GO+(6, 9) n 2.5" for getting (the preirriage 2.M of) the required maximal 
subgroup M of S. Because of this, and also because currently it is time consuming to compute the 
derived subgroup of S0"'"(12, 3), we work with the upward extension PS0"'"(12, 3) = S.2. Note that 
M extends to a maximal subgroup of 5.2. 

First we factor out the centre of S0"'"(12, 3), and switch to a permutation representation of S.2. 

gap> orbs:= OrbitsC so, NormedVectorsC GFC3)*12 ), OnLines );; 

gap> ListC orbs. Length ); 
[ 88452, 88452, 88816 ] 
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gap> act:= Action( so, orbs[l], OnLines );; 
gap> SetSizeC act, Size( so ) / 2 ) ; 

Next we rewrite the matrix generators for 00"*" (6, 9) accordingly, and compute the normalizer in S.2 
of the subgroup they generate; this is the maximal subgroup M.2 we need. 

gap> u:= SubgroupNCC act, 

> List( tblow, X -> PermutationC x, orbs[l], OnLines ) ) );; 
gap> n:= Normalizer( act, u );; 

gap> Size( n ) / Size( u ); 
2 

Now we compute class representatives of prime order in M.2, in a smaller faithful permutation 
representation, and then the desired upper bound for ij,{g, S/M). 

gap> norbs:= Orbits( n, MovedPointsC n ) );; 
gap> List( norbs. Length ); 
[ 58968, 29484 ] 

gap> hom:= ActionHomomorphism( n, norbs [2] );; 
gap> nact : = Image ( hom ) ; ; 
gap> Size( nact ) = Size( n ); 
true 

gap> ccl:= ConjugacyClasses( nact );; 

gap> Length ( ccl ) ; 

333 

gap> ccl:= FilteredC ccl, x -> IsPrimeInt( Order( Representative ( x ) ) ) );; 

gap> Length ( ccl ) ; 

26 

gap> preim:= List( ccl, 

> X -> PrelmagesRepresentative ( hom. Representative ( x ) ) );; 
gap> pccl:= List( preim, x -> ConjugacyClass ( n, x ) );; 

gap> for i in [1 . . Length( peel ) ] do 

> SetSizeC pccl[i], Size( ccl[i] ) ); 

> od; 

gap> UpperBoundFixedPointRatios ( act, [ peel ], false ); 
[ 2/88209, true ] 

Note that we have computed max{fi{g, S.2/M.2), g e S.2^} > max{/i(g, 5.2/M.2), g £ 5"^} = 
max{/i(g,S/Af),<7 G S*^}. 

5.19 * 54(8) 

We show that the group S — 84,(8) — Sp(4, 8) satisfies the following. 

(a) For s £ S irreducible of order 65, Ai{S,s) consists of two nonconjugate subgroups of the type 
S2(64).2 = Sp(2,64).2 ^ L2(64).2 ^ Oj(8).2 = n-(4,8).2. 

(b) a{S,s) = 8/63. 

By [BerOO] . the only maximal subgroups of S that contain s are Oj(8).2 = SO~(4, 8) or of extension 
field type. By |KL90I Prop. 4.3.10, 4.8.6], there is one class of each of these subgroups (which happen 
to be isomorphic). 

These classes of subgroups induce different permutation characters. One argument to see this is 
that the involutions in the outer half of extension field type subgroup S2(64).2 < 54(8) have a two- 
dimensional fixed space, whereas the outer involutions in S0~(4, 8) have a three-dimensional fixed 
space. 
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The former statement can be seen by using a normal basis of the field extension F64/F8, such that 
the action of the Probenius automorphism (which yields a suitable outer involution) is just a double 
transposition on the basis vectors of the natural module for S. 

gap> sp:= SP(4,8); ; 

gap> DisplayC InveiriantBilinecirFormC sp ) .matrix ); 

... 1 

. . 1 . 

. 1 . . 

1 . . . 
gap> z:= Z(64) ; ; 

gap> f:= AsFieldC GF(8), GF(64) );; 
gap> repeat 

> b:= Basis ( f, [ z, z"8 ] ); 

> z:= z * Z(64) ; 

> until b fail; 

gap> sub:= SP(2,64) ; ; 

gap> DisplayC Invar iantBilinearFormC sub ) .matrix ) ; 
. 1 
1 . 

gap> ext:= Group ( List( GeneratorsOf Group ( sub ), 

> x -> BlownUpMatC b, x ) ) );; 
gap> tr:= PermutationMat ( (3,4), 4, GF(2) );; 

gap> conj:= ConjugateGroupC ext, tr ) ; ; 

gap> IsSubsetC sp, conj ); 

true 

gap> inv:= [ [0, 1 ,0,0] , [1 ,0,0,0] , [0,0,0, 1] , [0,0, 1 ,0]] *Z(2);; 

gap> inv in sp; 

true 

gap> inv in conj ; 
false 

gap> LengthC NullspaceMat ( inv - inv'O ) ); 
2 

The latter statement can be shown by looking at an outer involution in S0~(4, 8). 

gap> so:= SO (-1,4, 8) ; ; 

gap> der : = DerivedSubgroup ( so ) ; ; 

gap> x:= First ( GeneratorsOf Group ( so ) , x -> not x in der );; 

gap> x:= x~( Order (x)/2 );; 

gap> Length( NullspaceMat ( x - x"0 ) ); 

3 

The character table of 1/2(64). 2 is currently not available in the GAP Character Table Library, so we 
compute the possible permutation characters with a combinatorial approach, and show statement (a). 

gap> CharacterTable( "L2(64).2" ); 
fail 

gap> t:= CharacterTable( "S4(8)" );; 

gap> degree:= Size( t ) / ( 2 * Size( SL(2,64) ) );; 

gap> pi : = PermChars ( t , rec ( torso : = [ degree ] ) ) ; 

[ Cliaracter( CharacterTable ( "34(8)" ), [ 2016, 0, 256, 32, 0, 36, 0, 8, 1, 

0, 4, 0, 0, 0, 28, 28, 28, 0, 0, 0, 0, 0, 0, 36, 36, 36, 0, 0, 0, 0, 0, 

0, 1, 1, 1, 0, 0, 0, 4, 4, 4, 0, 0, 0, 4, 4, 4, 0, 0, 0, 1, 1, 1, 0, 0, 

0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
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1, 1, 1, 1 ] ), Character ( CharacterTable ( "S4(8)" ), 
[ 2016, 256, 0, 32, 36, 0, 0, 8, 1, 4, 0, 28, 28, 28, 0, 0, 0, 0, 0, 0, 

36, 36, 36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 4, 4, 4, 0, 0, 0, 4, 4, 

4, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 

0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 ] ) ] 
gap> spos:= PositionC OrdersClassRepresentatives ( t ), 65 );; 
gap> List( pi, X -> x[ spos ] ); 
[ 1, 1 ] 

Now we compute a{S,s), which yields statement (b). 

gap> MaximumC ApproxP( pi, spos ) ); 
8/63 

We clean the workspace. 

gap> CleanWorkspace ; 

5.20 ^6(2) 

We show that the group S — S(i{2) — Sp(6, 2) satisfies the following. 

(a) (7{S) — 4/7, and this value is attained exactly for a{S,s) with s of order 9. 

(b) For s G S of order 9, A4{S,s) consists of one subgroup of the type (74(2). 2 — 0^(6,2). 2 and 
three conjugate subgroups of the type L2(8).3 — Sp(2, 8). 3. 

(c) For s £ S of order 9, and g £ , we have P{g, s) < 1/3, except if g is in one of the classes 2A 
(the transvection class) or 3A. 

(d) For s G S of order 15, and g G , we have P{g, s) < 1/3, except if g is in one of the classes 2A 
or 2B. 

(e) P{S) = 11/21, and this value is attained exactly for P{S, s) with s of order 15. 

(f) For all s' G S, we have P{g, s') > 1/3 for g in at least two classes. 

(g) The uniform spread of S is at least two, with s of order 9. 

(Note that in this example, the optimal choice of s w.r.t. o-{S, s) is not optimal w.r.t. P{S, s).) 
Statement (a) follows from the inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTable ( "S6(2)" );; 

gap> ProbGenInf oSimpleC t ); 

[ "S6(2)", 4/7, 1, [ "9A" ] , [ 4 ] ] 

Also statement (b) follows from the information provided by the character table of S (cf. [CCN^SSl 
p. 46]). 

gap> prim:= PrimitivePermutationCharacters( t );; 
gap> ord:= OrdersClassRepresentatives ( t );; 
gap> spos:= PositionC ord, 9 );; 

gap> filt:= PositionsProperty ( prim, x -> x[ spos ] <> ); 
[1,8] 

gap> Maxes ( t ){ filt }; 
[ "U4(2) .2" , "L2(8) .3" ] 

gap> ListC prim{ filt }, x -> x[ spos ] ); 
[1,3] 
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Now we consider statement (c). For s of order 9 and g in one of the classes 2A, 3A, we observe that 
P{g, s) = a{g, s) holds. This is because exactly one maximal subgroup of S contains both s and g. 
For all other elements g, we have even a{g, s) < 1/3. 

gap> prim:= PrimitivePermutationCharacters( t );; 

gap> spos9:= PositionC ord, 9 

gap> approx9:= ApproxP( prim, spos9 );; 

gap> filt9:= PositionsProperty ( approxQ, x -> x >= 1/3 ); 
[ 2, 6 ] 

gap> AtlasClassNames ( t ){ filt9 >; 
[ "2A", "3A" ] 

gap> approx9-[ filt9 }; 
[ 4/7, 5/14 ] 

gap> List( FilteredC prim, x -> x[ spos9 ] <> ), x -> x{ filt9 } ); 
[ [ 16. 10 ] , [ 0, ] ] 

Similarly, statement (d) follows. For s of order 15 and g in one of the classes 2A, 2B, already the 
degree 36 permutation character yields P{g,s) > 1/3. And for all other elements g, again we have 
(T{g,s)<l/3. 

gap> sposl5:= PositionC ord, 15 ) ; ; 

gap> approxl5:= ApproxPC prim, sposl5 );; 

gap> filtl5:= PositionsProperty ( approxlS, x -> x >= 1/3 ); 
[ 2, 3 ] 

gap> PositionsProperty ( ApproxPC prim{ [ 2 ] }, sposl5 ), x -> x >= 1/3 ); 
[ 2, 3 ] 

gap> AtlasClassNames C t ){ filtl5 }; 

[ "2A", "2B" ] 

gap> approxl5-[ filtl5 }; 

[ 46/63, 8/21 ] 

For the remaining statements, we use explicit computations with S, in the transitive degree 63 
permutation representation. We start with a function that computes a transvection in Sd(2); note 
that the invariant bilinear form used for symplectic groups in GAP is described by a matrix with 
nonzero entries exactly in the positions (i, d + 1 — i), for 1 < i < d. 

gap> transvection := functionC d ) 

> local mat; 

> mat:= IdentityMatC d, ZC2) ); 

> mat{ [ 1, d ] }{ [ 1, d ] >:= [ [ 0. 1 ] . [ 1, ] ] * ZC2) ; 

> return mat; 

> end; ; 

First we compute, for statement (d), the exact values P{g,s) for g in one of the classes 2A or 2B, 
and s of order 15. Note that the classes 2A, 2B are the unique classes of the lengths 63 and 315, 
respectively. 

gap> PositionsProperty C SizesConjugacyClassesC t ), x -> x in [ 63, 315 ] ); 

[ 2, 3 ] 

gap> d:= 6; ; 

gap> matgrp:= SpCd,2);; 

gap> liom:= ActionHomomorphismC matgrp, NormedRowVectorsC GFC2)"d ) );; 

gap> g:= Image C horn, matgrp );; 

gap> ResetGlobalRandomNumberGeneratorsC) ; 

gap> repeat sl5:= RandomC g ); 
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> until OrderC sl5 ) = 15; 

gap> 2A:= Image( horn, trans vect ion ( d ) );; 

gap> Size( ConjugacyClass ( g, 2A ) ); 

63 

gap> IsTransitive ( g, MovedPoints( g ) ); 
true 

gap> RatioOf NongenerationTransPermGroupC g, 2A, sl5 ); 
11/21 

gap> repeat 12C:= Random( g ); 

> until OrderC 12C ) = 12 and Size( CentralizerC g, 12C ) ) = 12; 
gap> 2B:= 12C~6; ; 

gap> Size( ConjugacyClass ( g, 2B ) ); 
315 

gap> RatioOf NongenerationTransPermGroupC g, 2B, sl5 ); 
8/21 

For statement (e), we compute P{g, s'), for a transvection g and class representatives s' of S. It turns 
out that the minimum is 11/21, and it is attained for exactly one s'; by the above, this element has 
order 15. 

gap> ccl:= ConjugacyClasses ( g );; 

gap> reps:= List( ccl. Representative );; 

gap> nongen2A:= List( reps, 

> X -> RatioOf NongenerationTransPermGroupC g, 2A, x ) );; 
gap> min:= Minimum ( nongen2A ); 

11/21 

gap> Number ( nongen2A , x -> x = min ) ; 
1 

For statement (f), we show that for any choice of s', at least two of the values P{g,s'), with g in the 
classes 2A, 2B, or 3A, are larger than 1/3. 

gap> nongen2B:= List( reps, 

> X -> RatioOfNongenerationTransPermGroupC g, 2B, x ) );; 
gap> 3A:= sl5~5; ; 

gap> nongen3A:= List( reps, 

> X -> RatioOf NongenerationTransPermGroupC g, 3A, x ) );; 
gap> bad:= List( [ 1 .. NrConjugacyClasses( t ) ], 

> i -> Number ( [ nongen2A , nongen2B , nongen3A ] , 

> X -> x[i] > 1/3 ) );; 
gap> Minimum ( bad ) ; 

2 

Finally, for statement (g), we have to consider only the case that the two elements x, y are transvec- 
tions. 

gap> PositionsProperty ( approx9, x -> x + approx9[2] >= 1 ) ; 
[ 2 ] 

We use the random approach described in Section [3.31 

gap> repeat s9:= Random( g ); 

> until OrderC s9 ) = 9; 

gap> RandomCheckUniformSpreadC g, [ 2A, 2A ], s9, 20 ) ; 
true 
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5.21 ^8(2) 



We show that the group S — Ss{2) satisfies the foUowing. 

(a) For s G 5 of order 17, Ai{S,s) consists of one subgroup of each of the types 0^(2).2 = 
n-{8,2).2, 5'4(4).2 = Sp(4,4).2, and L2(17) = PSL(2, 17). 

(b) For s £ S of order 17, and g G 5*^ , we have P{g, s) < 1/3, except if g is a transvection. 

(c) The uniform spread of S is at least two, with s of order 17. 

Statement (a) follows from the list of maximal subgroups of S in |CCN+85l p. 123], and the fact that 
l^(s) = 1 holds for each H G M{S, s). Note that 17 divides the indices of the maximal subgroups of 
the types Oj(2).2 and 2^ : S6(2) in S, and obviously 17 does not divide the orders of the remaining 
maximal subgroups. 

The permutation characters induced from the first two subgroups are uniquely determined by the 
ordinary character tables. The permutation character induced from the last subgroup is uniquely 
determined if one considers also the corresponding Brauer tables; the correct class fusion is stored in 
the GAP Character Table Library, see |Brea) . 

gap> t:= CharacterTableC "S8(2)" );; 

gap> pil:= PossiblePermutationCharactersC CharacterTableC "08-(2).2" ), t );; 

gap> pi2:= PossiblePermutationCharacters ( CharacterTableC "S4(4).2" ), t );; 

gap> pi3:= [ TrivialCharacter ( CharacterTableC "L2C17)" ) )'t ];; 

gap> prim:= ConcatenationC pil, pi2, pi3 );; 

gap> Length C prim ) ; 

3 

gap> spos:= PositionC OrdersClassRepresentatives C t ), 17 ) ; ; 
gap> ListC prim, x -> x[ spos ] ); 
[ 1. 1, 1 ] 

For statement (b), we observe that a{g, s) < 1/3 if g is not a transvection, and that P{g, s) = a{g, s) 
for transvections g because exactly one of the three permutation characters is nonzero on both s and 
the class of transvections. 

gap> approx:= ApproxPC prim, spos );; 

gap> PositionsProperty C approx, x -> x >= 1/3 ); 

[ 2 ] 

gap> Number C prim, pi -> pi [2] <> and pi [ spos ] <> ); 
1 

gap> approx [2] ; 
8/15 

In statement (c), we have to consider only the case that the two elements x, y are transvections. 

gap> PositionsProperty C approx, x -> x + approx [2] >= 1 ) ; 
[ 2 ] 

We use the random approach described in Section [3.31 

gap> d : = 8 ; ; 

gap> matgrp:= SpCd,2);; 

gap> hom:= ActionHomomorphismC matgrp, NormedRowVectorsC GFC2)~d ) );; 

gap> x:= ImageC horn, transvectionC d ) );; 

gap> g:= ImageC horn, matgrp );; 

gap> C:= ConjugacyClass C g, x );; SizeC C ); 

255 
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gap> ResetGlobalRandomNumberGenerators ; 
gap> repeat s:= Random ( g ); 

> until Order ( s ) = 17; 

gap> RandomCheckUnif ormSpreadC g, [ x, x ], s, 20 ); 
true 

5.22 * 5io(2) 

We show that the group S = Sio(2) satisfies the foUowing. 

(a) For s G 5* of order 33, M{S,s) consists of one subgroup of each of the types r2~(10, 2).2 and 
i2(32).5 = Sp(2,32).5. 

(b) For s £ S of order 33, and g £ , we have P{g, s) < 1/3, except if <; is a transvection. 

(c) The uniform spread of S is at least two, with s of order 33. 

By [BerOO] . the only maximal subgroups of S that contain s have the types stated in (a), and by [KL90I 
Prop. 4.3.10 and 4.8.6], there is exactly one class of each of these subgroups. 

We compute the values a{g,s), for all <; G . 
gap> t:= CharacterTableC "S10(2)" );; 

gap> pil:= PossiblePermutationCharactersC CharacterTableC "010-(2).2" ), t );; 
gap> pi2:= PossiblePermutationCharactersC CharacterTableC "L2C32).5" ), t );; 
gap> prim:= ConcatenationC pil, pi2 );; LengthC prim ); 
2 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 33 );; 
gap> approx:= ApproxPC prim, spos );; 

For statement (b), we observe that a{g, s) < 1/3 if y is not a transvection, and that P{g, s) — a{g, s) 
for transvections g because exactly one of the two permutation characters is nonzero on both s and 
the class of transvections. 

gap> PositionsProperty C approx, x -> x >= 1/3 ); 
[ 2 ] 

gap> Number ( prim, pi -> pi [2] <> and pi [ spos ] <> ); 
1 

gap> approx [2] ; 
16/31 

In statement (c), we have to consider only the case that the two elements x, y are transvections. We 
use the random approach described in Section [3.31 

gap> d:= 10; ; 

gap> matgrp:= SpCd,2);; 

gap> hom:= ActionHomomorphismC matgrp, NormedRowVectors C GFC2)"d ) );; 

gap> x:= ImageC hom, transvectionC d ) );; 

gap> g : = Image ( hom , matgrp ) ; ; 

gap> C:= ConjugacyClass C g, x );; Size( C ); 

1023 

gap> ResetGlobalRandomNumberGenerators ; 
gap> repeat s:= Random C g ); 

> until Order ( s ) =33; 

gap> RandomCheckUnif ormSpreadC g, [ x, x ], s, 20 ); 
true 
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5.23 Ui{2) 

We show that S = 174(2) = SU(4, 2) 5^ 5*4(3) = PSp(4, 3) satisfies the following. 

(a) (7{S) — 21/40, and this value is attained exactly for (j{S, s) with s of order 12. 

(b) For s £ S of order 9, A4{S,s) consists of two groups, of the types 3^'''^:2A4 — GU(3, 2) and 
3^:5*4, respectively. 

(c) P{S) = 2/5, and this value is attained exactly for P{S, s) with s of order 9. 

(d) The uniform spread of S is at least three, with s of order 9. 

(e) cr'(Aut(S),s) = 7/20. 

(Note that in this example, the optimal choice of s w.r.t. cr(5', s) is not optimal w.r.t. P{S, s).) 
Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTable ( "U4(2)" );; 

gap> ProbGenInf oSimpleC t ); 

[ "U4(2)", 21/40, 1, [ "12A" ], [ 2 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the only classes of 
maximal subgro ups that c ontain elements of order 9 consist of groups of the structures 3^^^^ : 2A4 
and 3^ : S4, see |CCN+85[ p. 26]. 

gap> DrdersClassRepresentatives ( t ); 

[ 1, 2, 2, 3, 3, 3, 3, 4, 4, 5, 6, 6, 6, 6, 6, 6, 9, 9, 12, 12 ] 
gap> prim:= PrimitivePermutationCharacters( t ); 

[ CharacterC CharacterTable ( "U4(2)" ), [27, 3, 7, 0, 0, 9, 0, 3, 1, 2, 0, 

0, 3, 3, 0, 1, 0, 0, 0, ] ), CharacterC CharacterTable ( "U4(2)" ), 
[ 36, 12, 8, 0, 0, 6, 3, 0, 2, 1, 0, 0, 0, 0, 3, 2, 0, 0, 0, ] ), 

CharacterC CharacterTable ( "U4(2)" ), [40, 16, 4, 4, 4, 1, 7, 0, 2, 0, 4, 
4, 1, 1, 1, 1, 1, 1, 0, ] ), CharacterC CharacterTable ( "U4(2)" ), 
[ 40, 8, 0, 13, 13, 4, 4, 4, 0, 0, 5, 5, 2, 2, 2, 0, 1, 1, 1, 1 ] ), 
CharacterC CharacterTable C "U4C2)" ), [45, 13, 5, 9, 9, 6, 3, 1, 1, 0, 1, 

1, 4, 4, 1, 2, 0, 0, 1, 1 ] ) ] 

For statement (c), we use a primitive permutation representation on 40 points that occurs in the 
natural action of SU(4, 2). 

gap> g:= SUC4,2);; 

gap> orbs:= OrbitsC g, NormedRowVectors C GFC4)~4 ), OnLines );; 
gap> ListC orbs. Length ); 
[ 45, 40 ] 

gap> g:= ActionC g, orbs [2] , OnLines );; 

First we show that for s of order 9, P{S, s) —2/5 holds. For that, we have to consider only P{g, s), 
with g in one of the classes 2A (of length 45) and 3A (of length 40); since the class 3B contains the 
inverses of the elements in the class 3A, we need not test it. 

gap> spos:= PositionC DrdersClassRepresentatives C t ), 9 ); 
17 

gap> approx:= ApproxPC prim, spos ); 

[ 0, 3/5, 1/10, 17/40, 17/40, 1/8, 11/40, 1/10, 1/20, 0, 9/40, 9/40, 3/40, 

3/40, 3/40, 1/40, 1/20, 1/20, 1/40, 1/40 ] 
gap> badpos:= PositionsProperty C approx, x -> x >= 2/5 ); 
[ 2, 4, 5 ] 
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gap> PowerMapC t, 2 ) [4] ; 
5 

gap> OrdersClassRepresentatives ( t ); 

[ 1, 2, 2, 3, 3, 3, 3, 4, 4, 5, 6, 6, 6, 6, 6, 6, 9, 9, 12, 12 ] 
gap> SizesConjugacyClassesC t ); 

[ 1, 45, 270, 40, 40, 240, 480, 540, 3240, 5184, 360, 360, 720, 720, 1440, 
2160, 2880, 2880, 2160, 2160 ] 

A representative 5 of a class of length 40 can be found as the third power of any order 9 element. 

gap> PowerMapC t, 3 )[ spos ]; 
4 

gap> ResetGlobalRandomNumberGeneratorsO ; 
gap> repeat s:= RandomC g ); 

> until OrderC s ) = 9; 

gap> SizeC ConjugacyClassC g, s*3 ) ); 
40 

gap> prop:= RatioOf NongenerationTransPermGroupC g, s'3, s ); 
13/40 

Next we examine g in the class 2A. 

gap> repeat x:= RandomC g ); until OrderC x ) =12; 

gap> SizeC ConjugacyClassC g, x*6 ) ); 

45 

gap> prop:= RatioOf NongenerationTransPermGroupC g, x*6, s ); 
2/5 

Finally, we compute that for s of order different from 9 and g in the class 2A, P{g, s) is larger than 
2/5. 

gap> ccl:= ListC ConjugacyClassesC g ), Representative );; 
gap> SortParallel C ListC ccl. Order ), ccl ); 

gap> ListC ccl, Order ); 

[ 1, 2, 2, 3, 3, 3, 3, 4, 4, 5, 6, 6, 6, 6, 6, 6, 9, 9, 12, 12 ] 

gap> prop:= ListC ccl, r -> RatioOfNongenerationTransPermGroupC g, x'6, r ) ); 

[ 1, 1, 1, 1, 1, 1, 1, 1, 1, 5/9, 1, 1, 1, 1, 1, 1, 2/5, 2/5, 7/15, 7/15 ] 

gap> Minimum C last ) ; 

2/5 

In order to show statement (d), we have to consider triples {xi,X2,X3) with Xi of prime order and 
^^^j^ P{xi,s) > 1. This means that it suffices to check x in the class 2A, 3/ in 2A U 3A, and z in 
2A U 3A U 3D. 

gap> approx [2] : = 2/5 ; ; 
gap> approx [4] : = 13/40 ; ; 

gap> primeord:= PositionsPropertyC OrdersClassRepresentatives C t ), 

> IsPrimeInt ) ; 
[ 2, 3, 4, 5, 6, 7, 10 ] 

gap> RemoveSetC primeord, 5 ); 
gap> primeord; 

[ 2, 3, 4, 6, 7, 10 ] 
gap> approx-[ primeord }; 

[ 2/5, 1/10, 13/40, 1/8, 11/40, ] 
gap> AtlasClassNamesC t ){ primeord }; 
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[ "2A", "2B", "3A", "3C", "3D", "5A" ] 

gap> triples:= Filtered( UnorderedTuples ( primeord, 3 ), 
> t -> SumC approx{ t } ) >= 1 ) ; 

[ [ 2, 2, 2 ], [ 2, 2, 4 ], [ 2, 2, 7 ], [ 2, 4, 4 ], [ 2, 4, 7 ] ] 

We use the random approach described in Section [3.31 



gap> 


repeat 6E:= Random ( g ); 
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until Order ( 6E ) = 6 and 
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gap> 


2A:= 6E~3; ; 


















gap> 
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gap> 
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gap> 
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gap> 
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gap> 
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gap> 
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) 


true 





















Statement (e) can be proved using ProbGenInf oAlmostSimple, cf. Section [4.41 

gap> t:= CharacterTable ( "U4(2)" );; 
gap> t2:= CharacterTable ( "U4(2).2" );; 

gap> spos:= PositionsProperty ( OrdersClassRepresentatives ( t),x->x=9);; 
gap> ProbGenInf oAlmostSimple ( t, t2, spos ); 
[ "U4(2).2", 7/20, [ "9AB" ], [ 2 ] ] 

5.24 Ui{3) 

We show that S = 174(3) = PSU(4, 3) satisfies the foUowing. 

(a) (j{S) — 53/153, and this value is attained exactly for (j{S, s) with s of order 7. 

(b) For s £ S of order 7, M(S, s) consists of two nonconjugate groups of the type 1/3(4), one group 
of the type 1/3(3), and four pairwise nonconjugate groups of the type A7. 

(c) P{S) = 43/135, and this value is attained exactly for P{S, s) with s of order 7. 

(d) The uniform spread of S is at least three, with s of order 7. 

(e) The preimage of s in the matrix group SU(4, 3) = 4.f/4(3) has order 28, the preimages of the 
groups in A4{S, s) have the structures 42.1/3(4), 4 x (73(3) = GU(3, 3), and 4.^1? (the latter being 
a central product of a cyclic group of order four and 2.^1?). 

(f) P'{S.2i,s) = 13/27, a'{S.22) = 1/3, and cr'(S'.23) = 31/162, with s of order 7 in each case. 
Statement (a) follows from inspection of the primitive permutation characters, cf. Section [4.31 

gap> t:= CharacterTable ( "U4(3)" );; 

gap> ProbGenInf oSimpleC t ); 

[ "U4(3)", 53/135, 2, [ "7A" ], [ 7 ] ] 

Statement (b) can be read off from the permutation characters, and the fact that the only classes of 
ma ximal subg roups that contain elements of order 7 consist of groups of the structures as claimed, 
see [CCN+851 p. 52]. 
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gap> prim:= PrimitivePermutationCharacters( t );; 

gap> spos:= PositionC OrdersClassRepresentatives ( t ), 7 ); 

13 

gap> List( FilteredC prim, x -> x[ spos ] <> ), 1 -> 1{ [1, spos ] } ); 
[ [ 162, 1 ], [ 162, 1 ], [ 540, 1 ], [ 1296, 1 ], [ 1296, 1 ], [ 1296, 1 ], 
[ 1296, 1 ] ] 

In order to show statement (c) (which then implies statement (d)), we use a permutation represen- 
tation on 112 points. It corresponds to an orbit of one-dimensional subspaces in the natural module 

of n-(6,3) S. 

gap> matgrp:= DerivedSubgroup ( S0( -1, 6, 3 ) );; 

gap> orbs:= Orbits( matgrp, NormedRowVectors ( GF(3)~6 ), OnLines );; 
gap> List ( orbs , Length ) ; 
[ 126, 126, 112 ] 

gap> G:= ActionC matgrp, orbs [3] , OnLines );; 

It is sufficient to compute P{g,s), for involutions g £ S. 
gap> approx:= ApproxP( prim, spos ); 

[ 0, 53/135, 1/10, 1/24, 1/24, 7/45, 4/45, 1/27, 1/36, 1/90, 1/216, 1/216, 

7/405, 7/405, 1/270, 0, 0, 0, 0, 1/270 ] 
gap> FilteredC approx, x -> x >= 43/135 ); 
[ 53/135 ] 

gap> OrdersClassRepresentatives ( t ); 

[ 1, 2, 3, 3, 3, 3, 4, 4, 5, 6, 6, 6, 7, 7, 8, 9, 9, 9, 9, 12 ] 

gap> ResetGlobalRandomNumberGenerators ; 

gap> repeat g:= RandomC G ); until Order(g) = 2; 

gap> repeat s:= RandomC G ); 

> until Order (s) = 7; 

gap> bad:= RatioOfNongenerationTransPermGroupC G, g, s ); 
43/135 

gap> bad < 1/3; 
true 

Statement (e) can be shown easily with character-theoretic methods, as follows. Since SU(4, 3) is a 
Schur cover of S and the groups in A4{S, s) are si mple, only v ery few possibilities have to be checked. 
The Schur multiplier of 1/3(3) is trivial (see, e. g., [CCN"'"85l p. 14]), so the preimage in SU(4, 3) is a 
direct product of (73(3) and the centre of SU(4, 3). Neither 1/3(4) nor its double cover 2.L3(4) can be 
a subgroup of SU(4, 3), so the preimage o f L3 (4) mu st be a Schur cover of 1/3(4), i. e., it must have 
either the type 4i.L3(4) or 42.1/3(4) (see [CCN+851 p. 23]); only the type 42.1/3(4) turns out to be 
possible. 

gap> 4t:= CharacterTableC "4.U4(3)" );; 

gap> LengthC PossibleClassFusions ( CharacterTableC "L3(4)" ), 4t ) ); 


gap> LengthC PossibleClassFusions C CharacterTableC "2.L3C4)" ), 4t ) ); 


gap> LengthC PossibleClassFusions C CharacterTableC "4_1.L3C4)" ), 4t ) ); 


gap> LengthC PossibleClassFusions C CharacterTableC "4_2.L3C4)" ), 4t ) ); 
4 

As for the preimage of the A7 type subgroups, we first observe that the double cover of A7 cannot 
be a subgroup of the double cover of S, so the preimage of A7 in the double cover of U4,{3) is a direct 
product 2x A7. The group SU(4, 3) does not contain A7 type subgroups, thus the Aj type subgroups 
in 2.114(3) lift to double covers of A7 in SU(4, 3). This proves the claimed structure. 
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gap> 2t:= CharacterTableC "2.U4(3)" );; 

gap> LengthC PossibleClassFusions( CharacterTableC "2.A7" ), 2t ) ); 


gap> LengthC PossibleClassFusionsC CharacterTableC "A7" ), 4t ) ); 


For statement (f), we consider automorphic extensions of S. The bound for 5.23 has been computed 
in Section [4.41 That for S.22 can be computed form the fact that the classes of maximal subgroups 
of S.22 containing s of order 7 are S, one class of 1/3(3). 2 type subgroup s, and two classes of S7 type 
subgroups which induce the same permutation character (see [CCN"'"85l p. 52]). 

gap> t2:= CharacterTableC "U4C3).2_2" );; 

gap> pil:= PossiblePermutationCharactersC CharacterTableC "U3C3).2" ), t2 ); 
[ CharacterC CharacterTableC "U4C3).2_2" ), [ 540, 12, 54, 0, 0, 9, 8, 0, 0, 

6, 0, 0, 1, 2, 0, 0, 0, 2, 0, 24, 4, 0, 0, 0, 0, 0, 0, 3, 2, 0, 4, 0, 

0, ] ) ] 

gap> pi2:= PossiblePermutationCharactersC CharacterTableC "A7.2" ), t2 ); 

[ CharacterC CharacterTableC "U4C3).2_2" ), [ 1296, 48, 0, 27, 0, 9, 0, 4, 1, 

0, 3, 0, 1, 0, 0, 0, 0, 0, 216, 24, 0, 4, 0, 0, 0, 9, 0, 3, 0, 1, 0, 1, 

0, ] ) ] 

gap> prim:= ConcatenationC pil, pi2, pi2 );; 
gap> outer := Difference C 

> PositionsProperty C OrdersClassRepresentatives C t2 ), IsPrimeInt ), 

> ClassPositionsOfDerivedSubgroupC t2 ) );; 

gap> spos:= PositionC OrdersClassRepresentatives C t2 ), 7 );; 

gap> MaximimC ApproxPC prim, spos )■[ outer ]■ ); 

1/3 

Finally, Section |43] shows that the character tables are not sufficient for what we need, so we compute 
the exact proportion of nongeneration for (74(3). 2i = SO~(6, 3). 

gap> matgrp:= SOC -1, 6, 3 ); 
SDC-1,6,3) 

gap> orbs:= OrbitsC matgrp, NormedRowVectors C GFC3)~6 ), OnLines );; 
gap> ListC orbs. Length ); 
[ 126, 126, 112 ] 

gap> G:= ActionC matgrp, orbs [3] , OnLines );; 
gap> repeat s:= RandomC G ); 

> until Order C s ) = 7; 
gap> repeat 

> repeat 2B:= RandomC G ); until DrderC 2B ) mod 2=0; 

> 2B:= 2B-C OrderC 2B ) / 2 ); 

> c:= CentralizerC G, 2B ); 

> until SizeC c ) = 12096; 

gap> RatioOf NongenerationTransPermGroupC G, 2B, s ); 
13/27 

gap> repeat 

> repeat 2C:= RandomC G ); until OrderC 2C ) mod 2=0; 

> 2C:= 2C-C OrderC 2C ) / 2 ); 

> c:= CentralizerC G, 2C ) ; 

> until SizeC c ) = 1440; 

gap> RatioOf NongenerationTransPermGroupC G, 2C, s ); 
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5.25 UeiS) 



We show that S — (76(3) = PSU(6, 3) satisfies the foUowing. 

(a) For s £ S of the type 1 ± 5 (i. e., the preimage of s in 2.5* — SU(6, 3) decomposes the natural 6- 
dimensional module for 2.5 into an orthogonal sum of two irreducible modules of the dimensions 

1 and 5, respectively) and of order (3^ + l)/2 = 122, A4{S, s) consists of one group of the type 

2 X ?75(3), which lifts to a subgroup of the type 4 x (75(3) = GU(5, 3) in 2.5*. (The preimage of 
s in 2.S has order 3^^ + 1 = 244.) 

(b) aiS,s) = 353/3 159. 

By [MSW94] ■ the only maximal subgroup of S that contains s is the stabilizer H = 2 x U5{3) of the 
orthogonal decomposition. This proves statement (a). 

The character table of 5* is currently not available in the GAP Character Table Library. We consider 
the permutation action of 5 on the orbit of the stabilized 1-space. So M can be taken as a point 
stabilizer in this action. 

gap> CharacterTableC "U6(3)" ); 
fail 

gap> g:= SU(6,3);; 

gap> orbs:= Orbits ( g, NormedRowVectors ( GF(9)*6 ), OnLines );; 
gap> List ( orbs , Length ) ; 
[ 22204, 44226 ] 

gap> repeat x:= PseudoRandom( g ); until Order( x ) = 244; 
gap> List( orbs, o -> Number ( o, v -> OnLines ( v, x ) = v ) ); 
[ 0, 1 ] 

gap> g:= ActionC g, orbs [2] , OnLines );; 
gap> M:= StabilizerC g, 1 );; 

Then we compute a list of elements in M that covers the conjugacy classes of prime element order, 
from which the numbers of fixed points and thus ma,x{^{S/A4,g);g € M^} = a{S,s) can be derived. 
This way we avoid completely to check the S'-conjugacy of elements (class representatives of Sylow 
subgroups in M). 

gap> elms : = [] ; ; 

gap> for p in Set ( Factors ( Size( M ) ) ) do 

> syl : = SylowSubgroup ( M , p ) ; 

> AppendC elms, Filtered( PcConjugacyClassReps ( syl ), 

> r -> Order ( r ) = p ) ) ; 

> od; 

gap> 1 - MinimumC List( elms, NrMovedPoints ) ) / Length( orbs [2] ); 
353/3159 

5.26 Usi2) 

We show that S = (78(2) = SU(8, 2) satisfies the following. 

(a) For s £ 5 of the type 1 _L 7 (i. e., s decomposes the natural 8-dimensional module for S into 
an orthogonal sum of two irreducible modules of the dimensions 1 and 7, respectively) and of 
order 2^^ + 1 = 129, M{S, s) consists of one group of the type 3 x 1/7(2) = GU(7, 2). 

(b) a{S,s) = 2 753/10 880. 

By MSW94J, the only maximal subgroup of S that contains s is the stabilizer M = GU(7, 2) of the 
orthogonal decomposition. This proves statement (a). 

The character table of 5* is currently not available in the GAP Character Table Library. We proceed 
exactly as in Section [5.251 in order to prove statement (b). 



Ill 



gap> CharacterTableC "U8(2)" ); 
fail 

gap> g:= SU(8,2);; 

gap> orbs:= Orbits ( g, NormedRowVectors ( GF(4)~8 ), OnLines );; 
gap> List ( orbs , Length ) ; 
[ 10965, 10880 ] 

gap> repeat x:= PseudoRandomC g ); until Order( x ) = 129; 
gap> List( orbs, o -> Number( o, v -> OnLinesC v, x ) = v ) ); 
[ 0, 1 ] 

gap> g:= ActionC g, orbs [2] , OnLines );; 
gap> M:= StabilizerC g, 1 );; 
gap> elms : = [] ; ; 

gap> for p in Set( Factors ( Size( M ) ) ) do 

> syl : = SylowSubgroup ( M , p ) ; 

> AppendC elms, Filtered( PcConjugacyClassReps ( syl ), 

> r -> Order( r ) = p ) ) ; 

> od; 

gap> Length ( elms ) ; 
611 

gap> 1 - MinimumC List( elms, NrMovedPoints ) ) / Length( orbs [2] ); 
2753/10880 
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